请各位帮忙看看

jia75111520

UID: 37984
帖子: 112
积分: 257
在线时间: 17 小时

1^# jia75111520 发表于 2007-08-28 09:14

请各位帮忙看看

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

UID: 10601
帖子: 172
积分: 395
在线时间: 1 天 16 小时

2^# vincentn 发表于 2007-08-28 10:34

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

UID: 37984
帖子: 112
积分: 257
在线时间: 17 小时

3^# jia75111520 发表于 2007-09-13 09:15

谢谢高手

weiqiboy

UID: 11192
帖子: 175
积分: 402
在线时间: 1 天 18 小时

4^# weiqiboy 发表于 2007-09-13 09:58

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

#!/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;
        $array[4] =0 if ($array[4]==3 && $array[5]==1);
        print OUTPUT join(" ",@array)."\n";
        $index++;
}
close(OUTPUT);
close(INPUT);