DS
Size: a a a
МИ
use utf8;
сделано правильно.AT
AR
package .......;на варн в sub callUserFunction не ругается! а на варн в sub sendError уже ругается!
use utf8;
use strict;
use warnings;
use Exporter;
use DBI;
use Encode;
sub callUserFunction
{
my $args = shift;
......
if ( !ConnectDB......) {
warn " ===before sendError=[" . $DBI::err ." - " . $DBI::errstr."]\n";
sendError("Ошибка соединения с БД : [" . $DBI::err . " " . $DBI::errstr . "]");
}
.....
}
sub sendError {
($strRespond) = shift();
warn "sendError(enter proc):[$strRespond]\n";
$strRespond = encode('Windows-1251', $strRespond);
.....
}
AT
AR
DS
use utf8;
use Encode;
$s = "русский текст";
$s = encode('utf8', $s);
warn " ===before enter to sub" . $s;
call_some_sub($s);
sub call_some_sub {
$var=shift();
warn " ===call_some_sub == $var";
}
DS
DS
DS
DS
AT
DS
AR
DS
AR
AT
$DBI::err
и $DBI::errstr
есть русские буквы?DS
DS
AR