Perl, редактирование на месте портит кодировку текста

Question

Содержание ввода является кусок HTML, скопированный из окна WebKit, как

Это правильно отображается в WebKit с помощью UTF-8.

То, что я хочу сделать, это заменить все теги, я использую этот один вкладыш:

perl -i -pe "s/<img.+?>//g" 

вход является RichText я скопировал в мой буфер обмена и перенаправляется в этот однострочника другой программой , наверное, это что-то вроде:

echo "rich html text" | perl -i -pe "s/<img.+?>//g" 

Ну, это удалить <img> теги, но все символы Unicode испорчены после подстановки.

Я на Windows 7, языковой стандарт En - США. Кодовая страница cmd уже установлена ​​в UTF-8. Это не работает, даже если я передаю опцию -C.

Есть ли способ сохранить код как однострочный, заставляя его работать для ввода Unicode?

Answer 1

Вы можете попробовать вставить это в Perl один лайнер:

use open ":encoding(utf8)"; 

Вы можете, вероятно, добавить его через -М:

perl -Mopen=:encoding(utf8) -i -pe "s/<img.+?>//g" 

(Спасибо @TLP за напоминание мне о синтаксисе) ,

Смотрите также the open pragma

Answer 2

perl -COE -i -pe "s/<img.+?>//g" input должен работать, опция -COE включается Юникода как на STDIN и STDOUT.

Для получения более подробной информации см. perldoc perlrun.