Help for this page

Select Code to Download


  1. or download this
    package Tie::DBI;

...
}

1;
  2. or download this
    my $dbh;
tie $dbh, 'Tie::DBI', $dsn, $user, $pass;
...
while ( my $row = $dbh ) {
  print $row->[0], "\n";
}
  3. or download this
    $dbh = "select * from table where field = ?";
$dbh = [$value];
while ( my $row = $dbh ) {
  print $row->[0], "\n";
}