Perl:Mysql (Ошибка при выполнении запроса перл к mysql)

[krz]

Доброго времени суток!!!
Perl должен складывать данные в mysql базу
вроде всё поставил все модули перлу (которые он просил). Но он никак не хочет отрабатывать - ругается на строке $sth->execute();
ошибка вот такая:
Can't call method "execute" on an undefined value at /home/user/insert_base.pl line 25

Код: Выделить всё

 #!/usr/bin/perl
use DBI;
my $dbh = DBI->connect ("DBI:mysql:BASEsql:192.168.0.12","mylogin","mypass") || die "Could not connect to database: ". DBI-> errstr;

$ip=$ARGV[0];
$input_traff=$ARGV[1];
$utc_time=$ARGV[3];
$ip_in=$ip.".real.DataTo";

my $sql_stmnt = "INSERT INTO logs SET rule_name='$ip_in', bytes='$input_traff', hostname='collect', that_time='utc_time';";

#my $sht = $dbh->prepare($sql_stmnt);
$sht = $dbh->prepare($sql_stmnt);
$sth->execute();
$sth->finish;
$dbh->disconnect;

два дня гуглился уже, но проблемму локализовать не получилось
help.......................

[madskull]

$sht = $dbh->prepare($sql_stmnt);
$sth->execute();

↑

переменные разные...
используй
#!/usr/bin/perl -w
и
use strict;
для отлова таких ситуаций

[krz]

переменные разные...
используй
#!/usr/bin/perl -w
и
use strict;
для отлова таких ситуаций

помогло отловить пару синтаксических ошибок и заставило обьявить
my ($ip, $utc_time, $input_traff, $ip_in, $sth,);
И снова
Can't call method "execute" on an undefined value at /home/user/insert_base.pl line
Объясните plz что значит разные переменные

[iAm]

Объясните plz что значит разные переменные

↑

a = 2, b = 3 => a != b;

У Вас в данном случае вместо a - sht, вместо b - sth.

[Crazy]

А зачем для вставки применять метод prepare?
обычно используют метод do

[madskull]

А зачем для вставки применять метод prepare?
обычно используют метод do

Обычно используют то, что удобнее.
Вот пример из man DBI:

Код: Выделить всё

         $sth = $dbh->prepare("INSERT INTO table(foo,bar,baz) VALUES (?,?,?)");

         while(<CSV>) {
           chomp;
           my ($foo,$bar,$baz) = split /,/;
               $sth->execute( $foo, $bar, $baz );
         }

[Crazy]

prepare используется тогда, когда нужен возврат данных из БД.
В данном примере выполнение запроса INSERT вернет 0 или 1.
При этом prepare использует больше ресурсов и занемает больше времени чем do.

Строчки
$sht = $dbh->prepare($sql_stmnt);
$sth->execute();
$sth->finish;
заменяется на
$dbh->do($sql_stmnt) or die "невозможно выполнить запрос :$!\n";

[madskull]

если залезть в DBI.pm, то можно увидеть:

Код: Выделить всё

   sub do {
        my($dbh, $statement, $attr, @params) = @_;
        my $sth = $dbh->prepare($statement, $attr) or return undef;
        $sth->execute(@params) or return undef;
        my $rows = $sth->rows;
        ($rows == 0) ? "0E0" : $rows;
    }

что в лоб, что по лбу.

[vadiml]

prepare используется тогда, когда нужен возврат данных из БД.
В данном примере выполнение запроса INSERT вернет 0 или 1.
При этом prepare использует больше ресурсов и занемает больше времени чем do.

неверно

при prepare разбор запроса производится только 1 раз, а дальше только подставляются цифры, а для do разбор запроса сервером делается на КАЖДОМ запросе.

поэтому для разового действия - лучше do, для внесения таблицы - prepare

ps я когда переносил таблицы по несколько тысяч записей из dbf в Oracle, получал разницу в быстродействии более чем на порядок (конвертор писал на перле для удобства преобразования данных, т.к. они довольно сильно структурно различались)