Perl 与 Excel 文件

17 Mar 2025 | 阅读 2 分钟

Perl 有一些可以处理 excel 文件的模块。它能够处理所有类型的电子表格。你可以使用 Perl 轻松创建或读取 excel 文件。

Perl 创建 Excel 文件

要创建 excel 文件，我们将使用 Perl 模块 Excel::Writer::XLSX。对于此模块，excel 文件扩展名为 (.xlsx)。

我们正在使用上述模块创建 excel 文件 myExcel.xlsx。首先，我们需要加载该模块。在 new 构造函数中，我们将传递我们正在创建的文件名。 new 构造函数的输出存储在 $workbook 中。

一个 excel 文件由一个或多个工作表组成。数据位于这些工作表上。我们通过调用 $workbook 对象的 add_worksheet() 方法来创建工作表。它的返回值存储在 $worksheet 中。

write 方法将数据添加到工作表。每次调用都有两个参数。在 excel 中，行从 1 开始标记，列从字母 A、B、C 等开始标记。

最后我们关闭文件。但这在 Perl 中不是必需的，因为它会在脚本结束时自动关闭文件。

#!/usr/bin/perl
use strict;
use warnings; 
use Excel::Writer::XLSX;
my $workbook= Excel::Writer::XLSX->new( 'myExcel.xlsx' );
my $worksheet = $workbook->add_worksheet();
$worksheet->write( "A1", "Excel file generated!" );
$worksheet->write( "A2", "This is the second row" );
$workbook->close;

输出

Perl 在 Excel 中添加公式

现在，我们将使用乘法打印 2 的乘法表。列 A 将打印 2 的乘法表。

#!/usr/bin/perl
use strict;
use warnings;
use Excel::Writer::XLSX;
my $workbook  = Excel::Writer::XLSX->new( 'myExcel.xlsx' );
my $worksheet = $workbook->add_worksheet();
$worksheet->write( "A1", 2 );
$worksheet->write( "A2", "=A1*2" );
$worksheet->write( "A3", "=A1*3" );
$worksheet->write( "A4", "=A1*4" );
$worksheet->write( "A5", "=A1*5" );
$worksheet->write( "A6", "=A1*6" );
$worksheet->write( "A7", "=A1*7" );
$worksheet->write( "A8", "=A1*8" );
$worksheet->write( "A9", "=A1*9" );
$worksheet->write( "A10", "=A1*10" );
$workbook->close;

输出