Re^3: How to modify column in WriteExcel?

#!perl
use strict;
use Spreadsheet::WriteExcel;
my $workbook  = Spreadsheet::WriteExcel->new('Report.xls');
my $worksheet = $workbook->add_worksheet("DTicket");

#my $url = $sth->fetchall_arrayref([0]);
my $url = [['10000516'],['10000512'],
['10000514'],['10000513'],['10000515']];

my $rowno = 2;
for my $row (@$url ){
  my $url = 'http://example.com/index.pl?TNumber='.$row->[0];
  $worksheet->write_url($rowno++,0, $url, $row->[0]);
}
[download]

poj

Comment on Re^3: How to modify column in WriteExcel? Download Code

Replies are listed 'Best First'.
Re^4: How to modify column in WriteExcel? by vserzh (Novice) on Mar 13, 2019 at 11:01 UTC
It's works thank you very match!	[reply]
Re^5: How to modify column in WriteExcel? by poj (Abbot) on Mar 13, 2019 at 11:18 UTC
You don't need to run another query, you can use `$data` in the loop `for my $row (@$data ){` [download] poj	[reply] [d/l] [select]
Re^6: How to modify column in WriteExcel? by vserzh (Novice) on Mar 13, 2019 at 11:40 UTC
Ok, I understood thanks!	[reply]