perl处理csv文件的例子

发布时间:2019-09-27编辑:脚本学堂
根据关联关系合并处理csv文件的perl代码,供大家学习参考。

根据关联关系合并处理csv文件的perl代码,供大家学习参考。
 

复制代码 代码如下:
#!/usr/bin/perl
#use strict;
open(FILE1,"D:/file/BX-Users.csv");
open(FILE2,"D:/file/BX-Books.csv");
open(FILE3,"D:/file/BX-Book-Ratings.csv");
 
open(result1,">D:/file/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);