新手问题：如何将文件里两行合并为一行（含具体文件格式）？

which

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. open FILE ,"text.txt";
   
5. read(FILE,$text,-s "text.txt");
   
6. print $text;
   
7. 
   
8. $text =~ s/\n(\t)+//s;
   
9. print $text;
   

复制代码

jyleon24

谢which，不过貌似都不行啊

which

原帖由 jyleon24 于 2009-3-25 15:28 发表
谢which，不过貌似都不行啊

哦？
出了什么事？

redmaple_v1

原帖由 which 于 2009-3-25 15:32 发表

哦？
出了什么事？

#!/usr/bin/perl -w open FILE ,"text.txt"; read(FILE,$text,-s "text.txt"); print $text; $text =~ s/\n\s+//s; print $text;

改了哈which的代码，莫见怪。现在应该可以了。

redmaple_v1

问一下which， \t  是啥意思，从来没有见过呢，我也刚接触perl。。

chenzq1604

原帖由 jyleon24 于 2009-3-25 15:28 发表
谢which，不过貌似都不行啊

这样行不：

1. 
   
2. [~]$ cat text
   
3.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
   
4.                       10110010010010000011000011110010111101000110110001";
   
5.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
   
6.                       10110010010010000011000011110010111101000110110001";
   
7.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
   
8.                       10110010010010000011000011110010111101000110110001";
   
9.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
   
10.                       10110010010010000011000011110010111101000110110001";
    
11.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
12.                       10110010010010000011000011110010111101000110110001";
    
13.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
14.                       10110010010010000011000011110010111101000110110001";
    
15.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
16.                       10110010010010000011000011110010111101000110110001";
    
17.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
18.                       10110010010010000011000011110010111101000110110001";
    
19.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
20.                       10110010010010000011000011110010111101000110110001";
    
21.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
22.                       10110010010010000011000011110010111101000110110001";
    
23.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
24.                       10110010010010000011000011110010111101000110110001";
    
25.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
26.                       10110010010010000011000011110010111101000110110001";
    
27.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
28.                       10110010010010000011000011110010111101000110110001";
    
29.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
30.                       10110010010010000011000011110010111101000110110001";
    
31.         chain "chain0" = "11011101110101101000101010000111100001000000110001\
    
32.                       10110010010010000011000011110010111101000110110001";
    
33. 
    
34. 
    
35. [~]$ perl -ne 's/(^\s+chain.*?)\n/$1/;print' text |perl -ne 's/\\\s+(\d+)/\\$1/;print'
    
36.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
37.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
38.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
39.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
40.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
41.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
42.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
43.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
44.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
45.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
46.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
47.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
48.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
49.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
50.         chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";
    
51. 
    
52. 
    
53. 
    

复制代码

chenzq1604

原帖由 redmaple_v1 于 2009-3-25 15:46 发表
问一下which， \t  是啥意思，从来没有见过呢，我也刚接触perl。。

\t  =tab

redmaple_v1

[quote]原帖由 redmaple_v1 于 2009-3-25 15:44 发表
next，可以进行多行了，并写入一个文件中。

#!/usr/bin/perl -w use strict; my $file; open (FILE,"file")or die "can't open file $:!"; my @file=<FILE>; close(FILE); open (OUTFILE,">>out")or die "can't open out $:!"; foreach $file(@file){     if($file =~ /[a-z]/){         $file =~ s/\n//;         print OUTFILE $file;     }     else{         $file =~ s/\s+//;         print OUTFILE $file;     }    }

redmaple_v1

原帖由 chenzq1604 于 2009-3-25 16:07 发表



\t  =tab

谢谢。。

which

原帖由 redmaple_v1 于 2009-3-25 16:27 发表
[quote]原帖由 redmaple_v1 于 2009-3-25 15:44 发表
next，可以进行多行了，并写入一个文件中。
#!/usr/bin/perl -w

use strict;
my $file;
open (F ...

我也仿照你的写了一个

1. 
   
2. cat chop.pl
   
3. 
   
4. #!/usr/bin/perl -w
   
5. 
   
6. use strict;
   
7. 
   
8. $^I = ".bak";
   
9. 
   
10. while(<>)
    
11. {
    
12.         unless(/[a-z]/){
    
13.                 $_ =~ s/\s+//;
    
14.                 print;
    
15.         }
    
16.         else{
    
17.                 $_ =~ s/\n//;
    
18.                 print;
    
19.         }   
    
20. }
    
21. 
    
22. 
    
23. # cat text.txt
    
24.                         chain "chain0" = "110011001000000110001\
    
25.                                                 101100100001100110001";
    
26.                                           
    
27.                         chain "chain0" = "110011001000000110001\
    
28.                                                 101100100001100110001";
    
29.                                           
    
30.                         chain "chain0" = "110011001000000110001\
    
31.                                                 101100100001100110001";
    
32. 
    
33.                         chain "chain0" = "110011001000000110001\
    
34.                                                 101100100001100110001";
    
35. # ls
    
36. chop.pl  text.txt
    
37. # ./chop.pl text.txt
    
38. # cat text.txt
    
39.                         chain "chain0" = "110011001000000110001\101100100001100110001";
    
40.                         chain "chain0" = "110011001000000110001\101100100001100110001";
    
41.                         chain "chain0" = "110011001000000110001\101100100001100110001";
    
42.                         chain "chain0" = "110011001000000110001\101100100001100110001";
    
43. #
    

复制代码