Я пытаюсь использовать следующий лайнер для преобразования файла из кодировки shiftjis в utf-8, и он не работает. Есть ли полезные умные люди?
perl -i.bak -e 'use utf8; use Encode qw(decode encode); my $ustr = Encode::decode("shiftjis",$_); my $val = Encode::encode("utf-8",$ustr); print "$val";' filename
Я довольно новичок в кодовых страницах, и в Интернете, похоже, полно всевозможных сложностей по этому вопросу. Я просто хочу один лайнер. Входной файл и выходной файл выглядят одинаково.
Вы забыли переключатель -n, который будет перебирать каждую строку ввода, загружая одну строку за раз в $_ и выполняя код, указанный в аргументе -e.
Более кратко, вы могли бы написать свою программу как
perl -MEncode -pi.bak -e '$_=encode("utf-8",decode("shiftjis",$_))' filename
Perl — странный выбор для этого, учитывая, что для этого уже есть стандартная утилита:
iconv -f shift-jis -t utf-8 filename
Конечно, это не позволяет легко редактировать файл на месте, но есть также recode, который каким-то образом также установлен в моей системе :)...
recode shift-jis..utf-8 filename
Или используйте moreutils:
iconv -f shift-jis -t utf-8 filename | sponge filename
Хм. Похоже на TMTOWTDI.
piconv -f shift-jis -t utf-8 filename
- person daxim; 05.11.2013
psed. perl, по-видимому, поставляется со всей базовой системой Unix!
- person Eevee; 05.11.2013
