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

}

QLinux保存表格内容的格式主要有CSV（CommaSeparatedValues）和TSV（TabSeparatedValues）。解决表格内容保存问题的步骤如下：1.首先，打开要保存的表格文件

，点击“文件”菜单，选择“另存为”；2.在d出的“另存为”对话框中，选择要保存的文件格式，如CSV或TSV；3.点击“保存”按钮，即可将表格内容保存为指定格式。个人心得小贴士：在保存表格内容时，要注意选择正确的文件格式，以免出现数据丢失或格式错误的情况。csv文件本质上还是属于文本文件，在Linux中转换文本文件的编码可以使用iconv命令，iconv命令很简单，记住它的三个参数

就可以了，下面是它的三个参数：

-f参数：表示from，就是原本的编码格式

-t参数：表示to，就是后来的新编码

-o参数：表示输出文件，就是转换编码后的新文件的文件名，如果没有这个参数新文件会将原来的文件覆盖掉。

下面是将GB2312编码的文本文件转换成UTF-8编码的例子：

iconv -f gb2312 -t utf8 mygb2312.txt -o myutf8.txt

---

这个例子中mygb2412.txt就是要转换的文件，myutf8.txt就是转换后的新文件。如果是批量转换，可以写一个简单的shell脚本，非常容易就能实现的。