請(qǐng)教一個(gè)格式化的問(wèn)題

tempo8

請(qǐng)教一個(gè)格式化的問(wèn)題
幾十兆的data文件：
>a
1        3        8
2        5        6
>b
1        2        3
>d
>c
2        3        6
5        6        7
8        6        3
……

預(yù)期結(jié)果：
>a        1        3        8        2        5        6
>b        1        2        3
>d
>c         2        3        6        5        6        7        8        6        3
……

特征是兩條記錄之間有>, 把兩個(gè)>之間的內(nèi)容依次放到第一條記錄之后，請(qǐng)問(wèn)如何實(shí)現(xiàn)？

舍不得perl的菜鳥(niǎo)！謝謝！:wink:

jason680

請(qǐng)教一個(gè)格式化的問(wèn)題
幾十兆的data文件：
>a
1        3        8
2        5        6
>b
1        2        3
>d
>c
2        3        6
5        6        7
8        6        3
...
tempo8 發(fā)表于 2011-08-21 09:57

chomp + if(m/^>/)

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $first_line = <DATA>;
   
7. chomp $first_line;
   
8. print "$first_line";
   
9. while (<DATA>) {
   
10.         chomp;
    
11.         if (/^>/) { print "\n$_"; }
    
12.         else { print "\t$_"; }
    
13. }
    
14. 
    
15. <STDIN>;
    
16. 
    
17. __DATA__
    
18. >a
    
19. 1        3        8
    
20. 2        5        6
    
21. >b
    
22. 1        2        3
    
23. >d
    
24. >c
    
25. 2        3        6
    
26. 5        6        7
    
27. 8        6        3

復(fù)制代碼

tempo8

謝謝jason680和兩位大仙兒！
騎小駱駝的漫步者敬上！