请各位帮忙看看

jia75111520

1    2    3   4    5    6  7    8    9   
1    2    3   4    5    6  7    8    9   
1    2    3   4    5    6  7    8    9   
1    2    3   4    5    6  7    8    9   
1    2    3   4    5    6  7    8    9   
1    2    3   4    5    6  7    8    9   


我要对这个文件进行修改，如果第5列和第6列数据符合第5列等于3,第6列等于1的，我就把第5列的改为0，还有我只想改前面5行。
请大侠们帮我想想办法。在下感激不尽。

vincentn

#!/usr/bin/perl
use strict;
my @array;
my $index=0;
open(INPUT,"a") || die("input err");
open(OUTPUT,">>outfile") || die("output err");
while(<INPUT>){
        last if($index==5);
        @array=split;
        if($array[4]==3 && $array[5]==1){
                $array[4]=0;
                print OUTPUT join(" ",@array)."\n";
        }
        else{
                print OUTPUT join(" ",@array)."\n";
        }
$index++;
}
close(OUTPUT);
close(INPUT);

jia75111520

谢谢高手

weiqiboy

不错，支持，有的地方还可以更简洁一点,是不是可以这样。

#!/usr/bin/perl use strict; my @array; my $index=0; open(INPUT,"a") || die("input err"); open(OUTPUT,">>outfile") || die("output err"); while(<INPUT>){ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last if($index==5); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@array=split; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$array[4] =0 if ($array[4]==3 && $array[5]==1); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print OUTPUT join(" ",@array)."\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$index++; } close(OUTPUT); close(INPUT);