Help for this page

Select Code to Download


  1. or download this
          my $x = 0;
          my @ar = ();
    ...
          }
          $s->rows = $x;     
          $s->ar   = \@ar;
    
  2. or download this
    my @ar = ();
    while (my $hr = $sth->fetchrow_hashref() ) {
    ...
    }
    $s->ar = \@ar;
    $s->rows = @ar;