当前位置： 移动技术网 > IT编程>网页制作>Perl > perl处理csv文件的小例子

perl处理csv文件的小例子

2017年12月08日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网