当前位置:w88手机版登录-www.w88zhan.com-优德w88app官方登录 > w88手机版登录网络 > 和文件2中所有的数据进行比较

和文件2中所有的数据进行比较

文章作者:w88手机版登录网络 上传时间:2019-07-21

供给:取文件第11中学的一行,和文件第22中学有所的数码开始展览相比,有同样的保存起来,不然删除。

复制代码 代码如下:

#!/usr/bin/perl
#use strict;
open(FILE1,"C:/Perl/BX/BX-Users.txt");
open(FILE2,"C:/Perl/BX/BX-Book-Ratings.txt");
open(result1,">C:/perl/BX/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);

本文由w88手机版登录-www.w88zhan.com-优德w88app官方登录发布于w88手机版登录网络,转载请注明出处:和文件2中所有的数据进行比较

关键词: