#!/usr/bin/perl -w
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, $filename; while () {
$csv->parse($_);
my @fields = $csv->fields;
$ws->write("A$row", \@fields);
$row++;
}; close FH;
}
Q
vi就可以看
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024