perl處理csv文件的小例子
更新時(shí)間：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對(duì)m x n類似表進(jìn)行按列排序的代碼
perl對(duì)m x n類似表進(jìn)行按列排序的代碼，有需要的朋友可以參考下2013-02-02
Perl字符串處理學(xué)習(xí)備忘錄，包括chop和chomp函數(shù)、getc函數(shù)、拼接字符串、分割字符串、重復(fù)拼接字符串、字串替換等。有需要的朋友，可以參考下2013-02-02
使用perl的Tie::File?模塊刪除文件固定行,?這里的處理主要利用了perl的Tie::File?模塊把數(shù)組和文件綁定,然后就可以使用perl的splice函數(shù)操作數(shù)組,從而達(dá)到操作文件的目的,對(duì)perl刪除文件固定行感興趣的朋友跟隨小編一起看看吧2023-12-12
using Net::SSH2 shell 的二個(gè)方法
using Net::SSH2 shell 的二個(gè)方法，供大家參考2013-02-02
perl 文件操作總結(jié)，需要的朋友可以參考下2013-02-02
這篇文章主要介紹了Perl學(xué)習(xí)筆記之文件操作,本文分別給出了打開文件、讀取文件、寫入文件代碼實(shí)例,需要的朋友可以參考下2015-06-06
在perl代碼中，open 有一個(gè)特殊的地方，就是如果你給它一個(gè)未定義（這是為什么用hash的原因）的變量做間接文件句柄，那么 Perl 會(huì)自動(dòng)為你定義那個(gè)變量，也就是自動(dòng)把它激活，使它包含一個(gè)合適的文件句柄引用2013-02-02
本文給大家分享的是使用perl生成隨機(jī)密碼的方法示例，而且可以通過(guò)參數(shù)來(lái)控制密碼中包含的字符種類，非常的不錯(cuò)，有需要的小伙伴可以參考下2016-06-06
這篇文章主要介紹了Perl中的單行注釋和多行注釋語(yǔ)法,本文還同時(shí)講解了其它常見編程語(yǔ)言的單行注釋和多行注釋語(yǔ)法,需要的朋友可以參考下2015-06-06
Perl腳本實(shí)現(xiàn)檢測(cè)主機(jī)心跳信號(hào)功能
這篇文章主要介紹了Perl腳本實(shí)現(xiàn)檢測(cè)主機(jī)心跳信號(hào)功能,本文代碼也可作為perl串口通信的實(shí)例,需要的朋友可以參考下2014-10-10