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);