perl比较两个文件字符串的实例代码
来源：爱站网时间：2020-05-16编辑：网友分享
Perl语言比较常使用于正则表达式中，它的编写需要满足的需求的挑战比较高，爱站技术频道小编为大家提供了perl比较两个文件字符串的实例代码，下文的介绍供大家参考，希望能帮到大家。
Perl语言比较常使用于正则表达式中，它的编写需要满足的需求的挑战比较高，爱站技术频道小编为大家提供了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=
my $userId=substr($bxUser,0,index($bxUser,","));
while(my $rankUser=
{
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比较两个文件字符串的实例代码的全部介绍，对于那些不了解这方面知识的人来说，在开发操作过程中不要过于紧张，任何疑问都能在js.aizhan.com找到答案。
