in reply to Re^5: getting error while writing to a table
in thread getting error while writing to a table

Hi, where you want me to use print dd(\%input), when i use the print dd(\%input);i am, what i understood is use about use Data::Dumper; is by using perl module we can print the data structure of array/hash, can you please guide where you want me to dd\%input

  • Comment on Re^6: getting error while writing to a table

Replies are listed 'Best First'.
Re^7: getting error while writing to a table
by Anonymous Monk on Jul 03, 2013 at 10:27 UTC
    Right before foreach my $k (keys %input) {

    Then do the same for @data right before for my $i ( 0 .. $#data ) {

[reply]
      Hi, 
      my @values;
my $table;

foreach my $k (sort {$b <=> $a} keys %input) {
        foreach (@{$input{$k}}) {
            chomp();
            push( @{@data[$.]},( split /[,\n]/, $_));
            }
        }

    print "After\n";

    print Dumper(\%data);

    for my $i ( 0 .. $#data ) {
        $body .= "<tr>";
        for ( @{@data[$i]}){
            $body .= "<td>$_</td>\r\n";
        }
        $body .= "</tr>";
    }
    $body .= "</table>";

      [download]

      I am getting Global symbol "%values" requires explicit package

[reply]
[d/l]
        Hi,

        Before

        $VAR1 = '12';
$VAR2 = [
          '01-01-1989,ABC,12,12000,300000,Finanance,BC'
    'January,60000'
        ];
$VAR3 = '13';
$VAR4 = [
          '01-01-1988,BCH,13,15000,400000,Manfacturing,CB'
      'Feburary,400000'
        ];
Can't use an undefined value as an ARRAY reference at

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom