linux 怎么查看 csv文件内容

2025年03月23日 06:48

有2个网友回答

网友（1）：

#!/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

网友（2）：

vi就可以看