SZ
А что не получается?
Size: a a a
2021 September 17
VG
в ActivePerl попробй
SZ
Можешь подробнее описать проблема?
VG
use utf8 в скрипте не включил поди
p
p
никак не влияет,
open .... тоже такое создает,
activeperl нельзя
пробовал в разные кодировки превратить (даже во все доступные), всеравно мусор получается
open .... тоже такое создает,
activeperl нельзя
пробовал в разные кодировки превратить (даже во все доступные), всеравно мусор получается
p
может версия не самая новая...
Win32API::File::CopyFileW тоже самое создает.
Win32API::File::CopyFileW тоже самое создает.
VG
ну, кодируй Encode'ом в 866
SZ
А почему не cp1251?
DF
потому что в консоли 866 раньше была
VG
потому что на fs - 866
VG
а вот это странно
VG
попробуй в UCS2 для него
p
никак ваще, я брал все кодировки из encode и в каждую пытался, все разный мусор давали
SZ
use utf8;
use Encode "encode";
my $newname = "привет";
$newname = encode(cp866 => $newname);
File::Copy::copy($0, $newname);p
неа, ща лучше свежий самый попробую
SU
Вашу мать, fat comma в encode(), да ты чёртов гений, как я без этого жил всё это время
SZ
Для UTF-8 не поможет :) А как по мне, это как раз самый частый случай
p
неа, может дело в portable или полной ненастроености виртуалки в плане локали
VG
так для него есть специальная отдельная функция