perl处理csv文件的小例子
更新时间：2013年02月09日 22:06:45 作者：
perl 处理csv文件的小例子，有需要的朋友可以参考下
复制代码 代码如下:
#!/usr/bin/perl
#use strict;
open(FILE1,"C:/Perl/BX/BX-Users.csv");
open(FILE2,"C:/Perl/BX/BX-Books.csv");
open(FILE3,"C:/Perl/BX/BX-Book-Ratings.csv");
open(result1,">C:/Perl/BX/BX-Users.txt");
my %table;
my $record1;
my $count1;
#my $i=0;
<FILE1>;
while($_=<FILE1>)
{
if($_ =~ /NULL$/){
next
}
else{
s/"//g;
my @list=split /;/,$_;
#print"@list";
push @{$table{$list[0]}},$list[2];
#print "$record1";
#$i++;
}
}
foreach my $userId(sort keys %table)
{
my @AGE=@{$table{$userId}};
syswrite(result1,"$userId,@AGE");
$count1++;
}
print "$count1";
close(FILE1);
close(result1);
close(FILE2);
close(FILE3);
相关文章
这篇文章主要介绍了Perl eval函数使用实例,本文讲解了eval 函数的两种使用方式,并给出3个使用实例,需要的朋友可以参考下2014-11-11
perl比较两个文件字符串的例子，供大家学习参考2013-02-02
perl的logwrapper可以对任何的函数将标准输出和错误输出重定向到对应的log文件2013-02-02
这篇文章主要介绍了windows安装perl及komodo IDE的详细步骤,本文通过图文并茂的形式给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-12-12
perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作2013-02-02
这篇文章主要介绍了Perl中怎样从数组中删除某个值？本文讲解如何把数组的元素赋值为undef,然后在从数组中删除元素,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了About Perl（翻译Perl官网介绍）,本文翻译自Perl官网介绍,讲解什么是Perl、Perl的历史、Perl 5 特征、Perl在WEB环境下的使用等内容,需要的朋友可以参考下2015-06-06
Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。这篇文章主要介绍了Windows10下安装配置 perl 环境的详细教程,需要的朋友可以参考下2020-12-12
Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享
这篇文章主要介绍了Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享,本文同时介绍了一个使用纯真IP库实现的Perl查询工具,需要的朋友可以参考下2014-09-09
这篇文章主要介绍了perl中使用signal(信号)实例,本文讲解了信号的相关知识以,并给出了perl代码实例,需要的朋友可以参考下2015-05-05
最新评论