Распечатайте весь столбец из листа Excel с помощью PERL

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; 

Я бегу хватает идей. Может кто-нибудь, пожалуйста, помогите мне, как читать и печатать столбец, используя Таблицу :: Чтение. Благодаря

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] 
}