#!/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, $filenamewhile () {

$csv->parse($_)

my @fields = $csv->fields

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

$row++

}close FH

}

Q

1、输入密码，进入linux虚拟机。 2、登陆之后的桌面

如下图所示。 3、linux中，每个用户都有一个home文件

夹，用于存放用户的文件。

4、如果要查看所有的文件，也就是不仅仅是当前用户的。需要点击左侧的computer。

5、另外的方式是用命令行。右键桌面，点击open in terminal。