Скриптом ниже пытаюсь впихнуть в базу данные из файла, в файле находятся данные в виде
"Имя Фамилия отчество Login Passwd otdel"
он мне выдает ошибку DBD::Pg::db do failed: ERROR: Unicode >= 0x10000 is not supported at /home/support/cgi-bin/inbase.pl line 30.
Причем в файлике имя/фамилия/отчество выглядит так - Ñòîëáóíîâ Ñåðãåé Âëàäèìèðîâè÷
Как я понимаю, он не понимает эти символы, как мне сделать так, чтобы он добавлял правильно, подскажите плизззз.
#!/usr/bin/perl
use DBI;
my $b_login="login";
my $b_pass = "******";
my $database="DB";
my $host="Host";
my $port="5432";
my $dbh=DBI->connect("dbi:Pg:dbname=$database;host=$host;port=$port", $b_login, $b_pass, {$RaiseError => 1})
or die $DBI::errstr;
my $result=$dbh->prepare('select * from users');
$result->execute();
open (FILE, "<users12.txt") or die("Cant open data file to read",$!);
my @lines = <FILE>;
close (FILE);
$i=0;
foreach $line (@lines) {
($name, $login, $pass, $otdel) = split(" ", $line);
($f_name, $l_name, $m_name) = split(" ", $name);
print "$login\n";
$i++;
my $ins="INSERT INTO users VALUES ( '$i','$login', '$pass', '$f_name', '$l_name', '$m_name')";
$dbh->do($ins);
}
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on
01-Ноя-04, 14:05 (MSK)
