亲宝软件园·资讯

展开

perl处理csv文件 perl处理csv文件的小例子

人气:2
想了解perl处理csv文件的小例子的相关内容吗,在本文为您仔细讲解perl处理csv文件的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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);

加载全部内容

相关教程
猜你喜欢
用户评论