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获取日期与时间的实例代码
注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11，需要加1。#!/usr/bin/perlmy($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$is

perl模块Data::Dumper应用一例分享
#!/usr/bin/perlusestrict;usewarnings;useData::Dumper;my%hash=('name'='zdd','id'=1234,);printDumper(%hash);#usereferenceheretogetabetteroutput.

使用 use re debug　查看正则表达式的匹配过程
#!/usr/bin/perlusestrict;usewarnings;usere'debug';subtest{my$str="123456789";printjoin(":",split/(?=...)/,$str);}test();