perl处理csv文件的小例子

#!/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/"//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从文件中读取数据并输出的实现代码
window下读取某个文件，格式是：open(filehand,"路径e.g：d:\data.txt");然后将打开的内容赋值给一个变量：$protein=filehand;附：一个读取蛋白质序列的程序。#!/bi

perl高级排序，<=>操作符，飞船操作符
按照要求进行的排序：#!/bin/perl@number=qw/5101532486/;my@descending=sort{$a=$b}@number;#这里$a=5,$b=10,因为$a在前，perl得到的结果是小数在前，也就是升序排列print"@des

perl的格式化输出及chomp的重要性分析
#!/bin/perlprint"pleaseinputsomelines,thenpressCtrl+Z.n";chomp(@s=STDIN);print"1234567890"x3."n";#做为输出结果的一个标尺foreach$s(@s){printf"%20sn",$s;#输出的格式为右对齐，所