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

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/(\t+)(.*?)(?:\n|\t)+(.*)/$1$2$3/s;
   
9. print $text;
   

复制代码

[ 本帖最后由 which 于 2009-3-25 15:03 编辑 ]

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/(\t+.*?)(?:\n|\t)+(.*)/$1$2/s;
   
9. print $text;
   

复制代码

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;
   

复制代码

which

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

哦？
出了什么事？

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. #
    

复制代码

which

原帖由 redmaple_v1 于 2009-3-25 17:08 发表



哈哈，又学到一招，
$^I=".bak"是不是读后面的文件“test.txt”的意思？

<>读命令行给出的文件。 $^I 是一种备份的用法。