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?
In reply to How to modify column in WriteExcel? by vserzh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |