Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
# while ((@f) = $sth2->fetchrow())
while ((@f) = $sth->fetchrow())
{ print "@f\n" }
  2. or download this
    package crsTools4;

...
}

1;  # Required for all packages, to return a true value
  3. or download this
    sql="SELECT * FROM person WHERE firstname = 'Joe'", sth, bind=""
Can't call method "fetchrow" on an undefined value at ./test4.pl line 
+9.