一个计算数组长度的perl脚本

发布时间:2020-11-11编辑:脚本学堂
在perl语言中,计算数组长度可以用函数scalar,本文介绍一个计算数组长度的perl脚本实例,供大家学习参考。

计算数组长度perl脚本实例,代码如下:
 

复制代码 代码示例:
#!/usr/bin/perl
#edit www.jb200.com
open(FILE1,"C:/Perl/BX/BX-Book-Ratings_result.txt");
open(FILE2,"C:/Perl/BX/BX-Users_result.txt");
open(result1,">C:/Perl/BX/BX-Book-Ratings_short.txt");
open(result2,">C:/Perl/BX/BX-Users_short.txt");
 
my @ISBN;
my $isbnNum=0;
my $i=0;
my $user;
my $subString;
my $count=0;
 
while(($_=<FILE1>)&&($user=<FILE2>))
{
    $subString=substr($_,index($_,",")+1);
    @ISBN=split(/ /,$subString);
    $isbnNum=scalar(@ISBN);
    if($isbnNum>4)
    {
        syswrite(result1,"$_");
        syswrite(result2,"$user");
        $count++;
    }
    else
    {
        next;
    }
    #printf"@ISBN $isbnNum $user";
    #$i++;
        
}
printf"$count";
close(FILE1);
close(FILE2);
close(result1);
close(result2);