#!/usr/bin/perl

use DBI;
$dbh = DBI->connect("dbi:mysql:algol60", "root", "");
die DBI::errstr if not defined $dbh;

$dbh->do("delete from case");

$sql = "insert into case (caseid, num, type, phase, description) values (null, ?, ?, ?, ?)";

while(<>)
{
   chomp;
   ($num, $type, $phase, $description) = split /\t/;
   $rc = $dbh->do($sql, undef, $num, $type, $phase, $description);
   print $dbh->errstr, "\n" if not defined $rc;
}

$dbh->disconnect;