国产探花免费观看_亚洲丰满少妇自慰呻吟_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);

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 石河子市| 抚州市| 临西县| 磴口县| 康定县| 岢岚县| 海淀区| 渭南市| 河西区| 景宁| 贵州省| 全椒县| 广西| 马关县| 商水县| 佛山市| 蓬安县| SHOW| 阿克陶县| 墨竹工卡县| 景泰县| 千阳县| 伊吾县| 全州县| 达拉特旗| 西充县| 碌曲县| 柳林县| 花莲市| 新宁县| 凯里市| 罗定市| 诸城市| 上蔡县| 新河县| 江北区| 毕节市| 左贡县| 东阿县| 措勤县| 克山县|