Question

我正在尝试阅读excel表并使用perl脚本打印整个列。我只能读取一行，我无法用脚本读取脚本。这是我的代码： -

#!/usr/bin/perl
use strict;
use warnings;
use strict;
use Data::Dumper;
use Spreadsheet::Read;

my $read = ReadData("RFQ15399_out.xlsx");
my $sheet = $read->[2];
my @row = Spreadsheet::Read::row($sheet,4);
print Dumper @row;

我缺乏想法。谁能帮助我如何使用Spreadsheet :: Read读取和打印列。谢谢

Answer 1

要使用Spreadsheet :: Read打印列，请获取所需的工作表，遍历该工作表中的所有行，并打印出每行的列：

foreach my $row (1..$read->[2]{maxrow}) {

    # Assuming you want to print out the 'D' column
    # Change 4 to something else for different columns
    print $read->[2]{cell}[$row][4] 
}

使用PERL从Excel工作表打印整个列

1 个答案: