- or download this
use FW::Database;
use XML::Parser;
...
.
DB_insertdata($stmt, $dbh);
- or download this
package FW::Database;
...
my $sth = $dbh->prepare($stmt) || FW::Utils::handle_dberror("$DBI:
+:errstr", $dbh);
my $rv = $sth->execute() || FW::Utils::handle_dberror("$DBI::errst
+r", $dbh);
}
- or download this
open (PIPE, "|/usr/local/mysql/bin/mysql -u user database");
print PIPE $stmt;
close(PIPE);