实现：
取文件1中的一行，和文件2中所有的数据进行比较，将相同的数据保存起来，其它的删除。
下面是perl脚本的完整代码：
复制代码 代码示例:
#!/usr/bin/perl
#edit www.jb200.com
#use strict;
open(FILE1,"D:/f/BX-Users.txt");
open(FILE2,"D:/f/BX-Book-Ratings.txt");
open(result1,">D:/f/BX-Users_result.txt");
my $i=0;
my $j=0;
while((my $bxUser=<FILE1>)&&($i<10))
{
my $userId=substr($bxUser,0,index($bxUser,","));
while(my $rankUser=<FILE2>)
{
my $userIdCmp=substr($rankUser,0,index($rankUser,","));
if(($userId==$userIdCmp)&&($j==0))
{
syswrite(result1,"$bxUser");
$j++;
}
}
$j=0;
$i++;
}
close(FILE1);
close(FILE2);
close(result1);
#--by www.jb200.com at 2013-6-2
