[>>] ...
Please try (not tested). Placeholders help me a lot:
my $sth_insert = $dbh->prepare('Insert into info (id, name, grade,
phone, cell, house, car)
values (?,?,?,?,?,?,?)')
or die DBI->errstr;
while (<DATA>){
#---------------------------------------#
# Some control statements #
#---------------------------------------#
print "STEP-$stp\n";
($id, $name, $grade, $phone, $cell, $house, $car) = split(":");
print "\$id = $id \n";
[>>] ...
print "\$car = $car \n";
print "\n";
[>>]die DBI->errstr unless $sth_insert->execute($id, $name,
$grade, $phone, $cell, $house, $car);
$stp++;
}
[>>] ...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
