AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • 主页
  • 系统&网络
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • 主页
  • 系统&网络
    • 最新
    • 热门
    • 标签
  • Ubuntu
    • 最新
    • 热门
    • 标签
  • Unix
    • 最新
    • 标签
  • DBA
    • 最新
    • 标签
  • Computer
    • 最新
    • 标签
  • Coding
    • 最新
    • 标签
主页 / ubuntu / 问题 / 722568
Accepted
Rycerzfrost
Rycerzfrost
Asked: 2016-01-19 08:29:55 +0800 CST2016-01-19 08:29:55 +0800 CST 2016-01-19 08:29:55 +0800 CST

每个 x 模式重复拆分一个大文本文件

  • 772

我试图在没有成功的情况下拆分每个 x 模式的大文件,我该如何实现?

文件结构:

> ASDF ABCDEFGHIJKWERQWEWQYASTRDTAYDGAHSFDTS

> QWERT ASJDHASDJHASDHASDHASJDHAJDHJHAD

> ASDF ABCDEFGHIJKWERQWEWQYASTRDTAYDGAHSFDTS

> QTRE AGAHDSJHDASJDHASJDHASJHDAJSDHJASHDJASHDJASHJDHASJDHASJDHAJSHDASJHDJASHDJASHDJASHDJASHDJASJDASHDSUHQYWGEYWGYWGQYWDWBCDEFGHIJKWERQWEWQYASTRDTAYDGAHSFDTS

> ASDF ABCDEFGHIJKWERQWEWQYASTRDTAYDGAHSFDTSASHDJASHDJASDHAJSDHAJDHQUHWUDHUHAWUHASUDHUASDHSUDHSU

它有数千行不同长度的行,每个“>”标题有多行。我想将该大文件拆分为每个文件每 100 个“>”标题的较小过滤,这可能吗?

提前致谢!

split
  • 2 2 个回答
  • 3457 Views

2 个回答

  • Voted
  1. Best Answer
    Wayne_Yux
    2016-01-19T15:04:12+08:002016-01-19T15:04:12+08:00

    这是给你的一个小的 perl 脚本。您可以将其另存为split_files.pl并以perl split_files.pl input.txt. 输出将存储在名为 等的文件chunk_0中chunk_1。

    #!/usr/bin/perl                                                           
    use strict;
    use warnings;
    
    my$infile=shift(@ARGV);
    
    my$linecount=0;
    my$filecount=0;
    my$outfile="chunk_".$filecount;
    
    open(IN,'<',$infile) or die $!;
    open(OUT,'>',$outfile) or die $!;
    $/="\n>";
    while(<IN>)
    {
        chomp;
        $_=~s/>//g;
        if($linecount==100)
        {
            $filecount++;
            $outfile="chunk_".$filecount;
            close OUT or die $!;
            open(OUT,'>',$outfile) or die $!;
            $linecount=0;
        }
        print OUT ">",$_,"\n";
        $linecount++;
    }
    close OUT or die $!;
    close IN or die $!;
    

    说明:
    脚本的诀窍是 line $/="\n>";。此行将默认换行符 ( \n) 更改为“换行符+>” ( \n>)。在while循环中,每个以“>”开头的块都被一次使用。我使用了两个计数变量($linecount和$filecount)。对行(或本例中的块)进行计数,当此计数达到 100 时,将使用一个新文件进行输出。

    • 1
  2. Sergiy Kolodyazhnyy
    2017-02-04T10:17:41+08:002017-02-04T10:17:41+08:00

    Python 方法

    >一旦在行首看到特定数量的字符,下面的脚本就会将命令行中给出的文件名拆分为文件。看到的字符数也在命令行中指定。因此语法如下:

    $ ./split_file.py input.txt 3
    

    脚本源

    #!/usr/bin/env python
    import sys
    
    def write_split_file(count,orig_name,lines):
        split_name = orig_name + '.split.' + str(count)
        with open(split_name,'w') as fd:
           fd.write("\n".join(lines))
    
    def main():
        counter = 0
        limit = int(sys.argv[2])
        line_list = []
        with open(sys.argv[1]) as fd1:
            for line in fd1:
                line_list.append(line.strip())
                if line.startswith('>'):
                   counter+=1
                   if counter % limit == 0:
                      write_split_file(counter,sys.argv[1],line_list)
                      line_list = []
    
        if line_list:          
           write_split_file(counter,sys.argv[1],line_list)
    
    if __name__ == '__main__': main()
    

    注意:该脚本是为 Python 2 编写的,但与 Python 3 兼容。可以轻松修改为基于变量起始字符串进行拆分。

    • 0

相关问题

  • 拆分 10GB 文本文件 1) 输出文件的最小大小为 40MB 和 2) 在特定字符串 (</record>) 之后

Sidebar

Stats

  • 问题 205573
  • 回答 270741
  • 最佳答案 135370
  • 用户 68524
  • 热门
  • 回答
  • Marko Smith

    如何运行 .sh 脚本?

    • 16 个回答
  • Marko Smith

    如何安装 .tar.gz(或 .tar.bz2)文件?

    • 14 个回答
  • Marko Smith

    如何列出所有已安装的软件包

    • 24 个回答
  • Marko Smith

    无法锁定管理目录 (/var/lib/dpkg/) 是另一个进程在使用它吗?

    • 25 个回答
  • Martin Hope
    Flimm 如何在没有 sudo 的情况下使用 docker? 2014-06-07 00:17:43 +0800 CST
  • Martin Hope
    Ivan 如何列出所有已安装的软件包 2010-12-17 18:08:49 +0800 CST
  • Martin Hope
    La Ode Adam Saputra 无法锁定管理目录 (/var/lib/dpkg/) 是另一个进程在使用它吗? 2010-11-30 18:12:48 +0800 CST
  • Martin Hope
    David Barry 如何从命令行确定目录(文件夹)的总大小? 2010-08-06 10:20:23 +0800 CST
  • Martin Hope
    jfoucher “以下软件包已被保留:”为什么以及如何解决? 2010-08-01 13:59:22 +0800 CST
  • Martin Hope
    David Ashford 如何删除 PPA? 2010-07-30 01:09:42 +0800 CST

热门标签

10.10 10.04 gnome networking server command-line package-management software-recommendation sound xorg

Explore

  • 主页
  • 问题
    • 最新
    • 热门
  • 标签
  • 帮助

Footer

AskOverflow.Dev

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve