文件处理问题

thzhsxw

我有两个文件（UNIX格式）：
cat file1
AAA  001  1000.00
BBB  001  2000.00
DDD  002  4000.00
EEE  002  5000.00
FFF  003  6000.00

cat file2
01 1111  AAA  WW001  $$$$  1000.00
02 2222  BBB  GG001  %%%%  2000.00
03 3333  CCC  JJ001  ****  3000.00
04 4444  DDD  FF002  &&&&  4000.00
05 5555  EEE  RR002  @@@@  5000.00
06 666   FFF  UU003  JJJJ  6000.00
07 777   III  II005  PPPP  7000.00
08 8888  TTT  TT008  TTTT  8000.00

如何从file2中筛选出如下行形成file3

01 1111  AAA  WW001  $$$$  1000.00
02 2222  BBB  GG001  %%%%  2000.00
04 4444  DDD  FF002  &&&&  4000.00
05 5555  EEE  RR002  @@@@  5000.00
06 666   FFF  UU003  JJJJ  6000.00


规则：  file2 的第三列与 file1的第一列相同，并且 file2 的第四列的3-5字段 与 file1的第二列相同 ，file2 的第六列 与 file1的第三列相同
      
      

谢谢各位！！

gunguymadman

hash

thzhsxw

[quote]原帖由 "gunguymadman"]hash[/quote 发表：


????

forrest.w

#!/usr/bin/perl
# This Perl srcipt writen by forrest.w

$filename1="file1";
$filename2="file2";

open (FL1,$filename1) or die "cannot open for $! \n";
open (FL2,$filename2) or die "cannot open for $! \n";

@line1=<FL1>;;
@line2=<FL2>;;

@value1=();
@value2=();
@value3=();

$i=0;
foreach  (@line1) {
        $_=~/(\w+\s+)(\d+\s+)(\d+\.\d+)/;
        $j=0;
        $value1[$i][$j]=$1;
        $value1[$i][$j+1]=$2;
        $value1[$i][$j+2]=$3;
        $i++;
}

$a=0;
foreach  (@line2) {
        $_=~/(\d+\s+)(\d+\s+)(\w+\s+)(\w+\d+\s+)(\S+\s+|\w+\s+)(\d+\.\d+)/;
        $b=0;
        $value2[$a][$b]=$1;
        $value2[$a][$b+1]=$2;
        $value2[$a][$b+2]=$3;
        $value2[$a][$b+3]=$4;
        $value2[$a][$b+4]=$5;
        $value2[$a][$b+5]=$6;
        $a++;
}

print "a=$a \t i=$i \n";

for ($m=0;$m<=$a ;$m++) {
        for ($n=0;$n<=$i ;$n++) {
                if (($value2[$m][2]==$value1[$n][0]) && (substr ($value2[$m][3],2,4)==$value1[$n][1])&& ($value2[$m][5]==$value1[$n][2]) ) {
                        print "$value2[$m][0] $value2[$m][1] $value2[$m][2] $value2[$m][3] $value2[$m][4]  $value2[$m][5] \n" ;
                        # can write to your file.
                }
        }
}

close FL1;
close FL2;

forrest.w

写的有些罗嗦
但是可以达到你的要求，哈。

flw

原帖由 "forrest.w" 发表：
写的有些罗嗦
但是可以达到你的要求，哈。

几个月前的问题也回答？

forrest.w

呵呵
是呀

newalbert

open H1, "file1";
open H2, "file2";
my %line;

$line{substr($_, 0, 1) - "A" + 1} = 1 foreach (<H1>;
while (<H2> {
  print $_ if $line{$.};
}