会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前如果field里面也包含分隔符(比如"tom,jack,jeff","rose mike",O'neil,"kurt,korn")，那么我们 |
解析起来确实有点麻烦， |
Text::CSV_XS挺方便。 |
QUOTE:#!/usr/bin/perl |
use strict; |
use Text::CSV_XS; |
my @columns; |
my $csv = Text::CSV_XS->new({ |
'binary' => 1, |
'quote_char' => '"', |
'sep_char' => ',' |
}); |
foreach my $line(<DATA>) |
{ |
chomp $line; |
if($csv->parse($line)) |
{ |
@columns = $csv->fields(); |
} |
else |
{ |
print "[error line : ", $csv->error_input, "]\n"; |
} |
map {printf("%-14s\t", $_)} @columns; |
print "\n"; |
} |
exit 0; |
__DATA__ |
id,compact_sn,name,type,count,price |
37,"ITO-2003-011","台式机,compaq","128M","290","1,2900" |
35,I-BJ-2003-010,"显示器,硬盘,内存",'三星',480,"1,4800" |
55,"C2003-104",笔记本,"Dell,Latitude,X200",13900,"1,13900" |
by: 发表于：2017-09-12 14:54:22 顶(0) | 踩(0) 回复
？？
回复评论