麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

perl處理csv文件的小例子

2020-06-04 20:29:04
字體：大 中 小
供稿：網(wǎng)友
代碼如下:
#!/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);

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 99影视在线视频免费观看 | 欧美日韩在线免费观看 | 国产毛片网 | 爱草成年 | 一级免费毛片 | 亚洲影视中文字幕 | 欧美精品免费一区二区三区 | 婷婷久久综合九色综合色多多蜜臀 | 亚洲性在线视频 | 国产91成人 | 免费一级电影 | 久久精品中文字幕一区 | 久久精品亚洲精品国产欧美kt∨ | 久久久久久久久成人 | 日韩激情 | 一级黄色淫片 | 久久区二区 | 久草干| 久久91亚洲精品久久91综合 | 一级黄色欧美 | 日韩黄色片在线观看 | 日日摸夜夜添夜夜添牛牛 | 成人视屏在线观看 | 欧美日韩在线视频一区二区 | 91成人在线免费观看 | 超碰97人人艹 | av成人免费在线观看 | 精品无吗乱吗av国产爱色 | av中文字幕免费在线观看 | 高潮激情aaaaa免费看 | 久久精品性视频 | 性盈盈盈影院 | 欧美一区成人 | 国产二区三区四区 | 亚洲精品aa | a黄网站 | 久久99精品视频在线观看 | 久久嗨 | 国产一级毛片国产 | 羞羞的视频在线 | 日本在线不卡一区二区三区 |