как отключить сообщения об ошибках консоль

[Sun Ja]

имеется консольный скрипт на языке перл.

строка вида:
             

sub mysql_qwery {
 $sth=$dbh->prepare($_[0]); 
 $sth->execute; 
 $sth->finish;
}


mysql_qwery("INSERT INTO baze.tmp_cat_keyword$prefix VALUES (0,\'$idbook\',\'$k\');") ;

выводит в консоль множество строк:

DBD::mysql::st execute failed: Dudlicate entry \'......\' for key 2 at ... line 37

как можно отключить вывод сообщений об ошибке именно в этом участке кода?

[demond]

попробуй в начале написать
use DBI;
use DBD::mysql;

[Sun Ja]

demond:
попробуй в начале написать
use DBI;
use DBD::mysql;

это у меня написано.
сам DBD-mysql работает

[ravshaniy]

Вот это может помочь наверное:
http://search.cpan.org/~timb/DBI-1.607/DBI.pm#PrintWarn_(boolean,_inherited)

вроде как прагму warnings можно также использовать

Код: [Выделить]

no warnings; #отмена всех сообщений компилятора

если конечно скрипт не выполняется с праметром -W;

и еще там написано что параметр -X действует как

Код: [Выделить]

no warnings \'all\';

и еще можно сделать например так

Код: [Выделить]

sub mysql_qwery {
 $sth=$dbh->prepare($_[0]);  
   {
        no warnings;
       $sth->execute;  
   }
 $sth->finish;
}


по крайней мере так написано

[arto]

использовать execute_array с параметрами.