计算数组长度的perl脚本实例，代码如下：
#!/usr/bin/perl
#edit
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(($_=
{
$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);
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/30094666/viewspace-1393010/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
浅谈PHP弱类型安全
下一篇：
安装ubuntu黑屏，修复分区表
请登录后发表评论
登录
全部评论
