Hello!
I'm beginner in Perl and I need advice :)
I use SpreadSheet::WriteExcel to create file from SQL query.
query code
######################################
....
#get data
$sth->execute();
my $columns = $sth->{NAME};
my $data = $sth->fetchall_arrayref();
#create Spreadsheet
my $workbook = Spreadsheet::WriteExcel->new('Report.xls');
my $worksheet = $workbook->add_worksheet("DTicket");
#add format
my $format = $workbook->add_format();
$format->set_bold();
#write data
$worksheet->write_row('A1', $columns, $format);
$worksheet->write_col('A2', $data);
....
############################
other code
After write raw data I need modify first column text into http-links.
First column contain numbers like 10005, I need modify every row with data
to http-link like http://example.com/index.pl?TNumber=10005.
HYPERLINK function is not support and I don't find any way to request whole
column without additional $sth->execute(); but I can't use it and write_url
method because I get just ref on array element like ARRAY(0x15530a0), but not value.
#Example for one cell
$sth->execute();
my $url = $sth->fetchall_arrayref([0]);
$worksheet->write_url(3,0, "http://example.com/index.pl?TNumber=${$url
+}[0]", "${$url}[0]");
So, the question is how I can get value of column and make and write link for each row?