求帮忙，怎样实现将第5行放在第一行的后面，第6行放在第3行的后面

q1208c

回复 10# 大山里出来的孩子


   

我写的只是读和输出的部分. 你还得有前面的文件打开关闭等等操作呀.

大山里出来的孩子

use IO;

#my $usage = "\cl_voa_html.pl input_text output_test \n";

use warnings;  
use strict;  

#(@ARGV == 2) || die $usage;
#my ($fn_IN,$fn_OUT) = @ARGV;

#chomp($fn_IN);
#chomp($fn_OUT);

my( $line,@arr);     
#chomp($fn_IN);   
#chomp($fn_OUT);  

open(FILE,"< Voa_dlct_2.txt") || die " failed to open input file";
#open($OUT, "> $fn_OUT") || die " failed to open the dictionary -- $fn_OUT";

while (my $line = <FILE>) {
    my $n=1;
    $arr[$n] = $line;
    $n ++;
}


for (my $i = 0; $i < @arr/ 2 ; $i ++) {

    print $arr[$i], $arr[$i+5];
}
你看看有什么问题
回复 11# q1208c


   

q1208c

把 my $n=1 这行放到外面去 . 放里面, 它就永远是1 了.

1. while (my $line = <FILE>) {
   
2.     my $n=1;
   
3.     $arr[$n] = $line;
   
4.     $n ++;
   
5. }
   

复制代码

大山里出来的孩子

恩恩，刚没看到 ，不过第五句竟然输出到第一行了，我再改改，谢谢你啊回复 13# q1208c


   

大山里出来的孩子

处理好了，n的初始值为0 回复 14# 大山里出来的孩子


   

pitonas

小伙伴们, 把简单的事情复杂化, 不是明智之举.

简单的事情使用简单的方法解决 ~ {:2_172:}

perl test.pl input.txt > output.txt

1. #!/usr/bin/perl
   
2. my @arr = <>;
   
3. my $add = @arr / 2;
   
4. print @arr[ $_, $_ + $add ] for 0 .. $#arr / 2;

复制代码