ps
а че?
Size: a a a
2020 December 25
ps
проблемы есть какие-то?
SZ
$charset = Encode::Detect::Detector::detect( $str );такой штукой до и после проверял
utf8::is_utf8
AP
$charset = Encode::Detect::Detector::detect( $str );такой штукой до и после проверял
это не то же самое
SZ
perl -E 'my @drugs = glob ("/home/plants/*"); say sort "@drugs"' | xargs -n 1 | nl
проблемы есть какие-то?
Да, у меня с ним не заводятся bluetooth наушники. Поделись патчем, если есть, пожалуйста
YT
$charset = Encode::Detect::Detector::detect( $str );такой штукой до и после проверял
ну плюс, say мне до замены пробелов норм выводил в консоль, а потом кракозябры
SZ
ну плюс, say мне до замены пробелов норм выводил в консоль, а потом кракозябры
Ну естественно
SZ
Просто это никогда и не было utf8 строкой
YT
как утомителен этот встроенный UTF-8 в перле из коробки... так логичен и понятен... ни у какого языка такой поддержки нет)))
SZ
как утомителен этот встроенный UTF-8 в перле из коробки... так логичен и понятен... ни у какого языка такой поддержки нет)))
Знаешь, это к @nuclight
По-моему, perl крайне через попу это всё реализовал
По-моему, perl крайне через попу это всё реализовал
YT
Знаешь, это к @nuclight
По-моему, perl крайне через попу это всё реализовал
По-моему, perl крайне через попу это всё реализовал
я в одном скрипте сделаю, потом долго не кодю, надо новый скрипт сделать с текстом - бац, опять грабли с utf-8... обидно... либо я совсем безнадёжен)
SZ
я в одном скрипте сделаю, потом долго не кодю, надо новый скрипт сделать с текстом - бац, опять грабли с utf-8... обидно... либо я совсем безнадёжен)
Не, это у всех так :)
SZ
я в одном скрипте сделаю, потом долго не кодю, надо новый скрипт сделать с текстом - бац, опять грабли с utf-8... обидно... либо я совсем безнадёжен)
А почему ты не используешь use utf8?
YT
А почему ты не используешь use utf8?
вообще почти всегда ставлю, но тут что есть, что нет - не решает
YT
я файл читаю с помощью
use IO::File;это может быть причиной? но сразу после чтения в консоле норм выводит
SZ
я файл читаю с помощью
use IO::File;это может быть причиной? но сразу после чтения в консоле норм выводит
А, так у тебя строка из файла изначально берется?
YT
$file = new IO::File $path || die qq(can't open file '$path'!);
for my $line (<$file>) {
chomp $line;
push @$InputItems, $line;
}
ps
Да, у меня с ним не заводятся bluetooth наушники. Поделись патчем, если есть, пожалуйста
не дам
SZ
$file = new IO::File $path || die qq(can't open file '$path'!);
for my $line (<$file>) {
chomp $line;
push @$InputItems, $line;
}
IO::File->new($path, "<:utf8")YT
IO::File->new($path, "<:utf8")ох, ты ж)) спасибо... я так не попробовал, потому что в другом скрипте у меня как-то без этого работает (теперь страшно за тот скрипт))