請各位幫忙看看

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   


我要對這個文件進(jìn)行修改，如果第5列和第6列數(shù)據(jù)符合第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

不錯，支持，有的地方還可以更簡潔一點(diǎn),是不是可以這樣。

#!/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);