• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

perl 计算数组长度

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

计算数组长度函数scalar;

有代码有真相:

#!/usr/bin/perl
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);


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perl excel文件和txt转换发布时间:2022-07-22
下一篇:
perl ExtUtils::Manifest发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap