在Perl中，使用'Spreadsheet :: WriteExcel'進行格式化，但無法格式化43行後的excel

Question

下面是代碼，我使用while循環寫入行，但只獲得43個格式化的行。如何解決這個問題？

use strict; 
use Spreadsheet::WriteExcel; 
my $xls=@ARGV[0]; 
# Create a new workbook called simple.xls and add a worksheet 
my $workbook = Spreadsheet::WriteExcel->new($xls); 
my $worksheet = $workbook->add_worksheet(); 

# The general syntax is write($row, $column, $token). Note that row and 
# column are zero indexed 

# Write some text 
my $row=1; 
$worksheet->write(0, 0, 'Hi Excel!'); 
while($row<100) 
{ 
    my $format = $workbook->add_format(); 
    $format->set_bg_color('grey'); 
    $format->set_align('center'); 
    $worksheet->write($row, 1, "vikas veer",$format); 
    $row++; 
} 
$workbook->close(); 

Answer 1

如果我正確理解你。我剛剛修改了你的代碼。這將給你100格式行：

use warnings; 
use strict; 
use Spreadsheet::WriteExcel; 
my $xls = $ARGV[0]; 

# Create a new workbook called simple.xls and add a worksheet 
my $workbook = Spreadsheet::WriteExcel->new($xls); 
my $worksheet = $workbook->add_worksheet(); 

# Add and define a format 
my $format = $workbook->add_format(); 
$format->set_bg_color('grey'); 
$format->set_align('center'); 

my $col = my $row = 0; 
while($row<100) 
{ 
    $worksheet->write($row, $col, "vikas veer", $format); 
    $row++; 
} 
$workbook->close();