perl如何将两个文件相关的数据输出到一个文件

juming1983

各位大大,有两个文件,如1.txt,2.txt
1.txt有以下数据:
123456,192.162.11.2
123457,192.162.11.20
............

2.txt有以下数据
BJ 192.162.11.2
AU 192.162.11.20
..............
我想将两个文件IP地址相同的输出到一个文件,文件格式如下:
123456,192.162.11.2,BJ
123457,192.162.11.20,AU

请问该如何实现,谢谢!

[ 本帖最后由 juming1983 于 2009-12-19 11:32 编辑 ]

兰花仙子

本版已有N个这样的问题及解答了，LZ与其在这里等，不如往前翻翻~~~

ccc77

原帖由 juming1983 于 2009-12-19 07:21 发表
各位大大,有两个文件,如1.txt,2.txt
1.txt有以下数据:
123456,192.162.11.2
123457,192.162.11.20
............

2.txt有以下数据
BJ 192.162.11.2
AU 192.162.11.20
..............
我想将两个文件 ...

#!/usr/bin/perl

%one=();
open FH,"1.txt" or die "cannot open $! \n";
while (<FH>){
  chomp;
  ($name,$ip)=split(/,/);
  #print "$ip";
  $one{$ip}=$name;
}
close FH;

open FH1,"2.txt" or die "cannot open $! \n";
while (<FH1>){
   chomp;
   ($country,$ip)=split(/ /);
   if (exists $one{$ip}) {
      print "$one{$ip} $ip $country \n";
   }
}
close FH1;

这样行吗？

Perl_Er

hash

yuloveban

回复 3# ccc77

你的这个hash 用得太棒了~ 赞一下~~

   

rubyish

谢谢!

linux-wenzhiguo

赞一个！if 语句里 写成   if （$ip）就行吧！

iLRainyday

intermediate perl中都有类似的例子。