提取文件信息

zero_BX

大家好，我的文本如下：

%ii 888+0
AAAAABBBBBCCCCCDDDDD
1
777
%22 99|00
XXXXXYYYYY
+
###

現(xiàn)在想提取每個%開頭的行和它下面那一行，%變?yōu)锧符號，下面那行變成每行5個字母輸出：
@ii 888+0
AAAAA
BBBBB
CCCCC
DDDDD
@22 99|00
XXXXX
YYYYY

moperyblue

1. sed -r '/^%/{s//@/;N;:a;s/.*\n.{5}\B/&\n/;ta;b};d' file

復(fù)制代碼

zero_BX

謝謝大神 我想用perl實(shí)現(xiàn)，然后匹配%完了不知道咋匹配下一行

fcl21721

$/ = undef;
$content = <DATA>;
while($content =~/%(.+)\n(.+)/g) {
        my $bb = $1;
        (my $aa = $2) =~ s/([a-zA-Z]{5})/$1\n/g;
        print "@", $bb, "\n", $aa;
}

__DATA__
%ii 888+0
AAAAABBBBBCCCCCDDDDD
1
777
%22 99|00
XXXXXYYYYY
+
###

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $start;
   
6. while (<DATA>){
   
7.     if (s/\A%/@/){
   
8.         print;
   
9.         $start = 1;
   
10.         next;
    
11.     }
    
12.     if ($start){
    
13.         while (length){
    
14.             print substr ($_, 0, 5), "\n";
    
15.             substr ($_, 0, 5) = "";
    
16.         }
    
17.         $start = 0;
    
18.     }
    
19. }
    
20. 
    
21. __DATA__
    
22. %ii 888+0
    
23. AAAAABBBBBCCCCCDDDDD
    
24. 1
    
25. 777
    
26. %22 99|00
    
27. XXXXXYYYYY
    
28. +
    
29. ###
    

復(fù)制代碼

華小飛_Perl

怎么感覺看著像fastq文件...

華小飛_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. while (<>) {
   
7.         chomp;
   
8.         if (/^%/) {
   
9.                 s/^%/@/;
   
10.                 print $_, "\n";
    
11.         } elsif (/^[a-zA-Z]+/) {
    
12.                 my @ary = m/(\w{5})/g;
    
13.                 print join "\n", @ary, "\n";
    
14.         }
    
15. }

復(fù)制代碼

b114213903

回復(fù) 6# 華小飛_Perl

應(yīng)該就是fastq文件

sunzhiguolu

1. #!/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $print;
   
6. while (<DATA>){
   
7.     if (s/\A%/@/){
   
8.         print;
   
9.         $print = 0;
   
10.         next;
    
11.     }
    
12.     if (!$print++){
    
13.         s/(\w{5})\B/$1\n/g;
    
14.         print;
    
15.     }
    
16. }
    
17. 
    
18. __DATA__
    
19. %ii 888+0
    
20. AAAAABBBBBCCCCCDDDDD
    
21. 1
    
22. 777
    
23. %22 99|00
    
24. XXXXXYYYYY
    
25. +
    
26. ###

復(fù)制代碼