perl处理csv文件的小例子
摘要：复制代码代码如下:#!/usr/bin/perl#usestrict;open(FILE1,"C:/Perl/BX/BX-Users.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处理csv文件的小例子】相关文章：
上一篇：
Perl 字符串处理备忘录
下一篇：
perl从文件中读取数据并输出的实现代码