in reply to Re: How to modify column in WriteExcel?
in thread How to modify column in WriteExcel?

As I understand I get exactly what I need, but.. :) 
$VAR1 = [
          [
            '10000516'
          ],
          [
            '10000512'
          ],
          [
            '10000514'
          ],
          [
            '10000513'
          ],
          [
            '10000515'
          ]
        ];

[download]

Replies are listed 'Best First'.
Re^3: How to modify column in WriteExcel?
by poj (Abbot) on Mar 13, 2019 at 10:42 UTC 
    #!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
[reply]
[d/l]
      It's works thank you very match!
[reply]

        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^3: How to modify column in WriteExcel?
by hdb (Monsignor) on Mar 13, 2019 at 10:32 UTC

    If this is the output of print Dumper $url; then you need to use $url->[0][0] instead of $url->[0] (the latter being the same as ${$url}[0]).

    Update: or ${${$url}[0]}[0] if you prefer.

[reply]
[d/l]
[select]
      Yes, that output and thank you $url->[0][0] is works, link are valid now. Could you explain me why is two pointers here [0][0]? And another question can I use for/foreach to modify every row in that column?
[reply]

        fetchall_arrayref returns all rows of your query in an array reference (first level of dereferencing needed) and each row again is an array reference (even when there is only one column) which is the second level of dereferencing. If you want so, you ask for a table, so you get a two-dimensional object...

[reply]
[d/l]

In Section Seekers of Perl Wisdom