in reply to Simple db select output script hanging up.

Do't use $a and $b as loop variables. Don't use these variables anywhere else than in sort subroutines. They are special.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: Simple db select output script hanging up.
by punch_card_don (Curate) on Jun 22, 2007 at 17:22 UTC
    New info for me - thanks.

    So I changed the output loop to:

    for $i (0 .. $#data) { print "<br>$i => "; for $j (0 .. $#{$data[$i]}) { print ", $data[$i][$j]"; } }

    but, no change, exact same behaviour.

      Use Data::Dump::Streamer and dump your @data to STDERR. Then look into your web server's error log and check whether the data is what you expect; look for funky HTML tags in there.

      Also, why do you interpolate?

      print ', ', $data[$i][$j];

      is better style IMHO.

      --shmem

      _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                                    /\_¯/(q    /
      ----------------------------  \__(m.====·.(_("always off the crowd"))."·
      ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}