Help for this page

Select Code to Download


  1. or download this
    while ((@cols)=$sth->fetchrow_array){
 print OFILE join "$delimiter" => (@cols),"\n";

    } #end while
  2. or download this
    while ((@cols)=$sth->fetchrow_array||die("unable to print row $DBI::er
+rstr\n")){
 print OFILE join "$delimiter" => (@cols),"\n";

    } #end while
  3. or download this
    if ($DBI::errstr) {die("error $DBI::errstr\n");}