Perl - Bảng tính :: Giải thích hàm WriteExcel

Tôi muốn sử dụng chức năng "autofit_columns" như được tìm thấy ở đây: CPAN

Đây là chương trình của tôi cho đến nay (tôi đã bỏ qua phần kết nối và truy vấn DB)

my $workbook = Spreadsheet::WriteExcel->new("TEST.xls");

my $bold = $workbook->add_format();
$bold->set_bold();
my $number = $workbook->add_format();
$number->set_num_format(0x01);
$worksheet = $workbook->add_worksheet('Sheet1');

my @headings = ('Blabla...');

foreach $i (@headings){
$worksheet->write(0, $col++, $i, $bold);
};

$col=0;
$lrow=1;
while (@row = $sth->fetchrow_array()) {
        $worksheet->write($lrow,$col,\@row);
        $lrow++;

};
$sth->finish;
$dbh->disconnect;

autofit_columns($worksheet);
$workbook->close();

sub autofit_columns {

        my $worksheet = shift;
        my $col       = 0;

        for my $width (@{$worksheet->{__col_widths}}) {

            $worksheet->set_column($col, $col, $width) if $width;
            $col++;
        }
    }

VẤN ĐỀ: Các cột của tôi không được tự động điều chỉnh trong tệp xls ... Bạn có biết tại sao không?

Tôi không nhận được mã:

for my $width (@{$worksheet->{__col_widths}}) {

                $worksheet->set_column($col, $col, $width) if $width;
                $col++;
            }