use strict

use Text::CSV

use Spreadsheet::WriteExcel

die("Usage: $0 [input filename(s)]\n") if (scalar @ARGV == 0)

my $xl = Spreadsheet::WriteExcel-new('output.xls')

foreach my $filename (@ARGV) {

my $csv = Text::CSV-new

my $wsname = $filename

$wsname =~ s/.csv//g

$wsname =~ s/-/ /g

my $ws = $xl-add_worksheet($wsname)

my $row = 1

open FH, $filenamewhile () {

$csv-parse($_)

my @fields = $csv-fields

$ws-write("A$row", \@fields)

$row++

}close FH

}

Q

#cat test.csv |awk -F, '{print $1,$2,"hello world",$3}'|sed 's/ /,/g'

1,男,hello,world,甲

2,女,hello,world,丁

3,男,hello,world,乙

欢迎分享，转载请注明来源：内存溢出

原文地址:https://outofmemory.cn/yw/6174327.html