A Simple Example

use DBI;

$dbh = DBI->connect('dbi:ODBC:PRICE', 'user', 'password',

{ RaiseError => 1, AutoCommit => 0 });

$upd = $dbh->prepare('UPDATE prices SET price=? WHERE prod=?');

$ins = $dbh->prepare('INSERT INTO prices(prod,price) VALUES (?,?)');

while ($line = <COST>) {

chop $line;

($prod, $price) = split /,/, $line;

$rows = $upd->execute($price, $prod);

$ins->execute($prod,$price) if $rows == 0;

}

$db->commit;

Previous slide Next slide Back to first slide View graphic version

Notes:

Very few lines of code.

Very simple to learn and use.