Help for this page

Select Code to Download


  1. or download this
    use FW::Database;
    use XML::Parser;
    ...
    .
    
    DB_insertdata($stmt, $dbh);
    
  2. 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);
    }
    
  3. or download this
    open (PIPE, "|/usr/local/mysql/bin/mysql -u user database");
    print PIPE $stmt;
    close(PIPE);