Size: a a a

2021 September 01

MG

Mr. Good in Modern::Perl
?
источник

MG

Mr. Good in Modern::Perl
Та это уже хак имхо, по-хорошему не должно быть таких проблем
источник

MG

Mr. Good in Modern::Perl
А можешь весь код показать?
источник

НЛ

Николай Ласточкин... in Modern::Perl
Весь код скрипта или только какую-то определенную часть?
источник

MG

Mr. Good in Modern::Perl
Хотябы верх скрипта, где модули подключаются, и где кодировка устанавливается
источник

НЛ

Николай Ласточкин... in Modern::Perl
use DBI;
use CGI;
$query = CGI->new();
$query->header (-charset => 'UTF8');
print $query->header;
my $startdate=$query->param('start_date');
$startdate=~s/-//g;
my $enddate=$query->param('end_date');
$enddate=~s/-//g;
my $dbh=DBI->connect('DBI:Sybase:server=server_name;database=database','login','password') or die "Couldn't connect to database: " . DBI->errstr;
источник

ع

عاصم بن حارث... in Modern::Perl
Как-то не понятно. Sybase вполне себе самостоятельный сервер баз данных, MSSQL тоже. Я не могу понять "все глубину ваших глубин": сервер тянет у сервера, а прилага у одного из них?
источник

НЛ

Николай Ласточкин... in Modern::Perl
Зачем? Я использую модуль DBI::Sybase для коннекта к MSSQL. Как такового сервера Sybase у меня нет. Да и когда гуглил про общение перла с MS, везде писалось именно про Sybase
источник

ع

عاصم بن حارث... in Modern::Perl
а, понятно. юзаешь "драйвер" сайбэса для коннекта к...
А то, "общается с MSSQL через Sybase" я понял как 2 сервака 😂
источник

MG

Mr. Good in Modern::Perl
Какая ОС? В какой кодировке сохранён скрипт? Какая кодировка у БД?
источник

НЛ

Николай Ласточкин... in Modern::Perl
Centos 6, UTF8, Cyrillic_General_CI_AS
источник

НЛ

Николай Ласточкин... in Modern::Perl
Это слишком изврат даже для меня)
источник

AP

Anton Petrusevich in Modern::Perl
я помню из перла в скл сервер через фритдс ходил, там же где-то настройки кодировок были
источник

MG

Mr. Good in Modern::Perl
use DBI;
use CGI;

use open ':std', ':encoding(UTF-8)';

print "Content-Type: text/html; charset=\"UTF-8\"\n\n";

Print "борода";
источник

AP

Anton Petrusevich in Modern::Perl
Adding 'client charset = UTF-8' to /etc/freetds/freetds.conf, [global] section worked for me though it could also be added to a specific connection.
источник

MG

Mr. Good in Modern::Perl
Если так ничего хорошего не выведет, то смотреть кодировку БД
источник

MG

Mr. Good in Modern::Perl
Вернее, наоборот, если все хорошо, то смотреть БД:)
источник

НЛ

Николай Ласточкин... in Modern::Perl
Да я вот просто не понимаю, почему если тупо скрипт в консоли запустить, то все красиво выводит, а как cgi использовать, то трабла с кодировкой.
источник

AP

Anton Petrusevich in Modern::Perl
да, мест где может сломаться кодировка больше одного. надо быть аккуратным, блин
источник

MG

Mr. Good in Modern::Perl
Потому что знания - это боль:)
источник