请问如何让文件分为单数行与双数行分别输出！

perl911

俺想把下面的文件按单行与双行分别输出：
Tennesse
Tenney
Tennis
Tenochti

输出：

文件1（单数行）
Tennesse
Tennis

文件2（双数行）
Tenney
Tenochti

俺是初学者，请大家帮忙，学习一下！谢谢！

apile

用個counter  module 2
等於0 雙數行
等於1 單數行..
不难吧....看看书就可以写得出来..

兰花仙子

原帖由 "perl911" 发表：
俺想把下面的文件按单行与双行分别输出：
Tennesse
Tenney
Tennis
Tenochti

输出：

文件1（单数行）
Tennesse
Tennis

文件2（双数行）
Tenney
Tenochti

俺是初学者，请大家帮忙，学习一下！谢谢..........

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $fileSource="10.tmp";
   
5. my $fileOut1="file1.txt";
   
6. my $fileOut2="file2.txt";
   
7. 
   
8. 
   
9. open (FILE0,$fileSource) or die "$!";
   
10. open (FILE1,">;",$fileOut1) or die "$!";
    
11. open (FILE2,">;",$fileOut2) or die "$!";
    
12. 
    
13. my $i=0;
    
14. while(<FILE0>;)
    
15. {
    
16.         next if /^$/;
    
17.         unless ($i%2)
    
18.         {
    
19.                 print FILE1 $_;
    
20.         }else
    
21.         {
    
22.                 print FILE2 $_;
    
23.         }
    
24.         $i++;
    
25. }
    
26. 
    
27. close FILE2;
    
28. close FILE1;
    
29. close FILE0;

复制代码

perl911

呵呵，俺先去试试，多谢两位大侠指点！

perl911

试过了，很好用的！
next if /^$/;
       unless ($i%2)
$i++;
上面的代码不太明白，能给解释一下吗？谢谢！

兰花仙子

原帖由 "perl911" 发表：
试过了，很好用的！
next if /^$/;
       unless ($i%2)
$i++;
上面的代码不太明白，能给解释一下吗？谢谢！

/^$/表示这是个空行；
$i%2 表示$i对2取余数呀，例如0/2的余数是0，1/2的余数是1，等
$i++就是$i的自加，即$i=$i+1;

perl911

多谢兰花仙子热心指点！
改天俺也请仙子喝果汁。呵呵........

rorot

1. 
   
2. sed -n -e 'w tmp2' -e 'n; w tmp3' tmp
   

复制代码