perl處理csv文件的小例子
更新時間：2013年02月09日 22:06:45 作者：
perl 處理csv文件的小例子，有需要的朋友可以參考下
復(fù)制代碼 代碼如下:
#!/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);
相關(guān)文章
這篇文章主要介紹了Perl eval函數(shù)使用實例,本文講解了eval 函數(shù)的兩種使用方式,并給出3個使用實例,需要的朋友可以參考下2014-11-11
perl比較兩個文件字符串的例子，供大家學(xué)習(xí)參考2013-02-02
perl的logwrapper可以對任何的函數(shù)將標(biāo)準(zhǔn)輸出和錯誤輸出重定向到對應(yīng)的log文件2013-02-02
windows安裝perl及komodo IDE的詳細(xì)步驟
這篇文章主要介紹了windows安裝perl及komodo IDE的詳細(xì)步驟,本文通過圖文并茂的形式給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-12-12
perl數(shù)組的多數(shù)字下標(biāo)示例代碼
perl數(shù)組中正常的下標(biāo)運算，想必大家都比較熟悉，這里不作說明。本文想說的是perl數(shù)組下標(biāo)的多數(shù)字取值，可以極大的方便數(shù)組的操作2013-02-02
這篇文章主要介紹了Perl中怎樣從數(shù)組中刪除某個值？本文講解如何把數(shù)組的元素賦值為undef,然后在從數(shù)組中刪除元素,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了About Perl（翻譯Perl官網(wǎng)介紹）,本文翻譯自Perl官網(wǎng)介紹,講解什么是Perl、Perl的歷史、Perl 5 特征、Perl在WEB環(huán)境下的使用等內(nèi)容,需要的朋友可以參考下2015-06-06
Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程
Perl 最重要的特性是Perl內(nèi)部集成了正則表達(dá)式的功能，以及巨大的第三方代碼庫CPAN。這篇文章主要介紹了Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程,需要的朋友可以參考下2020-12-12
Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享
這篇文章主要介紹了Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享,本文同時介紹了一個使用純真IP庫實現(xiàn)的Perl查詢工具,需要的朋友可以參考下2014-09-09
這篇文章主要介紹了perl中使用signal(信號)實例,本文講解了信號的相關(guān)知識以,并給出了perl代碼實例,需要的朋友可以參考下2015-05-05