為何數(shù)據(jù)插入不到數(shù)據(jù)庫？

dahe_1984

#!/usr/bin/perl -w

use strict;  
use warnings;
use DBI;
use Encode;
use strict;
use Time::localtime;
use Data:umper;
use Time::Local;
use Spreadsheet:arseExcel;
use POSIX qw(strftime);

my $dbh = DBI->connect( 'DBI:mysql:altadb',
                        '',
                        '',
                        {RaiseError=>1,AutoCommit=>0}
                      )
          || die "Database connection not made: $DBI::errstr";

my $parser   = Spreadsheet:arseExcel->new();
my $workbook = $parser->parse('products.xls');

if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}

for my $worksheet ( $workbook->worksheets() ) {

    my ( $row_min, $row_max ) = $worksheet->row_range();
    #my ( $col_min, $col_max ) = $worksheet->col_range();

        #3944
        my $count = 0;
    for my $row ( $row_min .. 18 ) {
           my $catalog = $worksheet->get_cell( $row, 0 )->unformatted();
           next unless $catalog;
                   if($catalog =~ /[^0-9a-zA-Z]/) {
                                next;
                   } else {
                                my $sth = $dbh->prepare("select t.catalog from kc_product t where t.catalog = '$catalog'";
                                $sth->execute();                           
                                if (my @ary = $sth->fetchrow_array()) {
                                        print "exitsary \n";
                                        next;
                                }
                                       
                                        #$count = $count +1;
                                        my $Cname = $worksheet->get_cell( $row, 1 )->unformatted();
                                        my $Pname = $worksheet->get_cell( $row, 2 )->unformatted();
                                        my $cas = ($worksheet->get_cell( $row, 3 )? $worksheet->get_cell( $row, 3 )->unformatted():'');
                                       
                                        my $sql = q{insert INTO kc_product (catalog, title, chemical_name, cas) VALUES (?, ?, ?, ?)};
                                        #$sth = $dbh->prepare("insert INTO kc_product (catalog, title, chemical_name, cas) VALUES (?, ?, ?, ?)";

                    print $count." ".$sql."\n" ;
                    $count = $count + 1;
                    $sth = $dbh->prepare($sql);
                    $sth->bind_param(1, $catalog);
                    $sth->bind_param(2, $Cname);
                    $sth->bind_param(3, $Pname);
                        $sth->bind_param(4,$cas);
                        $sth->execute();
                                       
                                        #my $sql = "INSERT INTO kc_product (catalog, title, chemical_name, cas) VALUES ('$catalog', '$Cname', '$Pname', '$cas')";
                                        #$dbh->do("$sql"||        die "Couldn't insert record : $DBI::errstr";
                                        print "insert $catalog,qq/$Cname/,$Pname,qq/$cas/\n";
                                       
                        }
        }               
}
$dbh->disconnect;

dahe_1984

程序沒有報(bào)任何錯(cuò)誤，但是區(qū)查看數(shù)據(jù)庫，這兩條數(shù)據(jù)沒有插入進(jìn)去，為何？

dahe_1984

都沒人Le ，perl這么沒前途了

laputa73

你忘了commit了。
前面設(shè)的autocomit=0