Help for this page

Select Code to Download


  1. or download this
      my $result_array  = $sth->fetchall_arrayref;
      foreach my $row (@{$result_array}) {
        print join (",", @$row),"\n";
        print FH join (",", @$row),"\n";
      }
    
  2. or download this
      print "==>@{$result_array}<==\n";
    
  3. or download this
      if (@{$result_array} eq “”) {
        <some message>
      } else {
        <do the output>
      }