一个计算数组长度的perl脚本
来源:互联网 发布:java测试工程师要求 编辑:程序博客网 时间:2024/05/02 20:19
计算数组长度的perl脚本实例,代码如下:
#!/usr/bin/perl
#edit www.ahlinux.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);
0 0
- 一个计算数组长度的perl脚本
- 计算一个数组的长度
- 计算数组的长度
- Perl 程序 计算各个 字段的长度
- hive size计算数组长度的一个坑
- perl数组的长度与元素个数
- perl数组的长度与元素个数
- perl数组的长度与元素个数
- 计算未定义数组的长度
- 数组、字符串长度的计算
- Perl获取数组长度
- C语言中计算一个数组长度
- 计算基因组染色体长度的Python脚本
- 求一个数组的长度
- 求一个数组的长度
- 一个简单的Perl多线程脚本
- Perl 的一个ftp自动脚本
- sizeof计算二维数组长度的问题
- golang 编码转换 gbk
- Solr\Lucene优劣势分析
- jquery 对 Json 的各种遍历
- Flex文件上传
- interleaving memory
- 一个计算数组长度的perl脚本
- 自定义DedeCMS后台图集上传图片的显示顺序
- SublimeText3安装Emmet插件步骤
- 判断两个有符号整数的加法和乘法是否溢出
- Bert Ertman专访:将Spring及遗留应用迁移到Java EE 6平台
- 日志20140704~1226
- 【趣味题】输出蛇形矩阵(由内向外、由外向内)、输出Z字形矩阵。
- 文件打包、上传与md5校验
- radiobutton