Perl创建Excel文件

在Perl中，我们可以使用各种模块来创建Excel文件，例如Spreadsheet::WriteExcel、Excel::Writer::XLSX等。这些模块都提供了许多功能，使得我们可以轻松地创建和编辑Excel文件。

安装模块

首先，我们需要在Perl中安装所需的模块。以Spreadsheet::WriteExcel为例，我们可以使用以下命令在命令行中安装：

cpan Spreadsheet::WriteExcel

如果你的系统中没有cpan命令，你需要先安装cpan，然后再使用上述命令。在Windows系统中，你也可以使用Perl Package Manager (ppm) 来安装模块。

创建Excel文件

使用Spreadsheet::WriteExcel模块创建Excel文件非常简单。以下是一个例子：

use Spreadsheet::WriteExcel;

# 创建Excel文件
my $workbook = Spreadsheet::WriteExcel->new('example.xls');

# 添加工作表
my $worksheet = $workbook->add_worksheet();

# 写入数据
$worksheet->write('A1', 'Hello');
$worksheet->write('B1', 'World');

# 关闭Excel文件
$workbook->close();

在这个例子中，我们创建了一个名为example.xls的Excel文件，并向其中添加了一个名为“Sheet1”的工作表。我们还在工作表中写入了“Hello”和“World”两个单元格。

更复杂的例子

以下是一个较为复杂的例子，展示了如何设置单元格格式、合并单元格等功能。

use Spreadsheet::WriteExcel;

# 创建Excel文件
my $workbook = Spreadsheet::WriteExcel->new('example.xls');

# 添加工作表
my $worksheet = $workbook->add_worksheet();

# 设置单元格格式
my $bold = $workbook->add_format(bold => 1);
my $money_format = $workbook->add_format(num_format => '$#,##0.00');

# 写入标题
$worksheet->write('A1', 'Sales', $bold);

# 写入数据
$worksheet->write('A2', 'Quarter', $bold);
$worksheet->write('B2', 'Sales', $bold);

$worksheet->write('A3', 'Q1');
$worksheet->write('B3', 5000, $money_format);

$worksheet->write('A4', 'Q2');
$worksheet->write('B4', 8000, $money_format);

$worksheet->write('A5', 'Q3');
$worksheet->write('B5', 10000, $money_format);

$worksheet->write('A6', 'Q4');
$worksheet->write('B6', 12000, $money_format);

# 合并单元格
$worksheet->merge_range('A1:B1', 'Annual Sales', $bold);

# 设置列宽
$worksheet->set_column('A:B', 15);

# 关闭Excel文件
$workbook->close();

在这个例子中，我们首先设置了单元格格式，然后向工作表中写入了标题和数据。我们还使用了merge_range函数合并了A1:B1单元格，并使用set_column函数设置了A和B两列的宽度。

结论

使用Perl创建Excel文件非常简单，只需要几行代码即可实现。我们可以使用各种模块来处理Excel文件，具有很高的灵活性。