perl处理csv文件的小例子
程序员文章站
2022-04-29 20:10:24
复制代码 代码如下:#!/usr/bin/perl#use strict;open(file1,"c:/perl/bx/bx-users.csv");open(file2,...
复制代码 代码如下:
#!/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);
上一篇: 基于jquery插件制作左右按钮与标题文字图片切换效果
下一篇: perl特殊符号及默认的内部变量