perl练习程序—文本比对程序

perl学习—文本比对程序

  • 比较两个文本文件中有多少行的内容不一致
#!usr/bin/perl
use strict;
use warnings;
my $line1;
my $num = 0;
open(FL1,"DATA1") || die "$!\n";            #句柄FL1,用于打开DATA1文件
open(FL2,"DATA2") || die "$!\n";            #句柄FL2,用于打开DATA2文件
while($line1 = <F1>)                            #从DATA1读取一行
{
      my $line2 = <F2>;                          #从DATA2读取一行
     if($line1 ne $line2) 
     {
         $num += 1;                                 #两行不相等,则$num + 1
     }
}
close(FL1);
close(FL2);
print "DATA1 和DATA2 有$num 行元素不一样\n";  #打印
__DATA1__
love
fascinate
young
flower
__DATA2__
hello
world
1
2
执行结果:
DATA1 和DATA2 有4行元素不一样

信息:
Jasonchild2017
其他:
1
235

CryChow
想起了上学期上的perl课。。。

评论 :