perl处理csv文件的小例子
更新时间：2013年02月09日 22:06:45 作者：
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对m x n类似表进行按列排序的代码，有需要的朋友可以参考下2013-02-02
Perl字符串处理学习备忘录，包括chop和chomp函数、getc函数、拼接字符串、分割字符串、重复拼接字符串、字串替换等。有需要的朋友，可以参考下2013-02-02
使用perl的Tie::File 模块删除文件固定行, 这里的处理主要利用了perl的Tie::File 模块把数组和文件绑定,然后就可以使用perl的splice函数操作数组,从而达到操作文件的目的,对perl删除文件固定行感兴趣的朋友跟随小编一起看看吧2023-12-12
using Net::SSH2 shell 的二个方法，供大家参考2013-02-02
perl 文件操作总结，需要的朋友可以参考下2013-02-02
这篇文章主要介绍了Perl学习笔记之文件操作,本文分别给出了打开文件、读取文件、写入文件代码实例,需要的朋友可以参考下2015-06-06
在perl代码中，open 有一个特殊的地方，就是如果你给它一个未定义（这是为什么用hash的原因）的变量做间接文件句柄，那么 Perl 会自动为你定义那个变量，也就是自动把它激活，使它包含一个合适的文件句柄引用2013-02-02
本文给大家分享的是使用perl生成随机密码的方法示例，而且可以通过参数来控制密码中包含的字符种类，非常的不错，有需要的小伙伴可以参考下2016-06-06
这篇文章主要介绍了Perl中的单行注释和多行注释语法,本文还同时讲解了其它常见编程语言的单行注释和多行注释语法,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl脚本实现检测主机心跳信号功能,本文代码也可作为perl串口通信的实例,需要的朋友可以参考下2014-10-10
最新评论