奇迹私服教你用perl处理csv文件

作者:kgmucom   在线用户:74
风之恋奇迹私服技术网是一家提供最新互联网编程技术网站

对于处理csv文件这个问题相信很多小伙伴们都是不了解,那么你知道如何用perl处理处理csv文件吗?接下来的内容中小编将要教你用perl处理csv文件,感兴趣的小伙伴们可以一起来参考参考。


#!/usr/bin/perl
#use strict;
open(FILE1,"C://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);

上文中小编教你用perl处理csv文件的方法, 需要的朋友赶紧动手尝试一下吧,这在我们日后操作perl的过程中会带来不少方便。

提供最全面的奇迹sf开服版本和最新的奇迹私服开服技术信息,奇迹私服文库让每一位奇迹私服玩家找到自己需要的版本技术文章

上一篇:奇迹私服实现Ajax跨域

下一篇:奇迹私服架设中iis7如何添加mime类型支持风之恋登录器后缀名文件

请发表您的评论