我是靠谱客的博主 唠叨鸡,这篇文章主要介绍perl比较两个文件字符串的实例代码,现在分享给大家,希望可以做个参考。

需求:取文件1中的一行,和文件2中所有的数据进行比较,有相同的保存起来,否则删除。

复制代码 代码如下:

#!/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);

最后

以上就是唠叨鸡最近收集整理的关于perl比较两个文件字符串的实例代码的全部内容,更多相关perl比较两个文件字符串内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(116)

评论列表共有 0 条评论

立即
投稿
返回
顶部