国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 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);

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 老河口市| 东宁县| 图木舒克市| 濮阳市| 韩城市| 盈江县| 耿马| 苏州市| 台中县| 志丹县| 双城市| 突泉县| 丹巴县| 渝中区| 宁晋县| 广宗县| 杭锦旗| 乐都县| 山阳县| 革吉县| 富宁县| 太湖县| 太仓市| 静海县| 桂阳县| 延安市| 布拖县| 绥德县| 台江县| 堆龙德庆县| 庄浪县| 双柏县| 定襄县| 伊宁县| 平陆县| 通江县| 旅游| 海阳市| 清新县| 奇台县| 永川市|