需求：用data2文件的内容不全文件data1。
[root@localhost tmp]# cat data1
277|9|100
277|9|1200
277|9|1200
277|9|1500
277|9|300
277|9|1500
277|9|1400
[root@localhost tmp]# cat data2
277|9|100|12345
277|9|1200|122112222
277|9|1500|434388888888
277|9|300|676557
277|9|1400|2546565
[root@localhost tmp]# cat 1.pl
#!/usr/bin/perl
open(FD1,$ARGV[0]);
open(FD2,$ARGV[1]);
while(){
m/(\d+)\|\d+$/;
$data{$1}=$_;
}
while(){
m/\d+$/;
print "$data{$&}";
}
[root@localhost tmp]# perl 1.pl data1 data2
277|9|100|12345
277|9|1200|122112222
277|9|1200|122112222
277|9|1500|434388888888
277|9|300|676557
277|9|1500|434388888888
277|9|1400|2546565
[root@localhost tmp]#
