a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

perl處理csv文件的小例子

2020-06-04 20:29:04
字體：大 中 小
來源：轉載
供稿：網友
代碼如下:
#!/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/"http://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);

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产精品呻吟久久av图片 | 久久国产综合 | 午夜影晥| 日韩专区一区二区 | 新91在线视频 | 青青青青在线 | 亚洲福利免费 | 伊人久操 | 日韩精品av | 爽爽淫人网 | 福利视频一区二区 | japanhd熟睡侵犯 | 日本涩涩网站 | www.五月天婷婷 | 美女视频一区二区三区 | 午夜剧院官方 | 日韩一区二区三区免费观看 | 亚洲午夜视频 | 亚洲欧美影院 | 久久99精品视频 | 中文字幕在线观看av | 午夜精品久久久久 | 天天艹综合 | 午夜精品久久久久 | 中文字幕三区 | 成人一区视频 | 久久精品国产亚洲精品 | 久久女人网 | 国产精品www | 亚洲精品一区二区三区中文字幕 | 精品久久久久久久久久久久包黑料 | 91麻豆精品国产91久久久久久 | 97免费在线视频 | 国产精品精品视频一区二区三区 | 国产乱码精品一区二区三区忘忧草 | 国产精品一区二区三区免费 | 国产精品久久久久国产a级 色999国产 | 天堂一区二区三区 | 色涩色| 色婷婷国产精品久久包臀 | 在线欧美一区 |