April 22nd, 2012

фига

Perl Regexp tr/// utf8 - как сделать?

После не лучшим образом сделанного преобразования html-ек из православной кодировки КОИ8-R в не менее православную ныне UTF-8 (на некоторых страницах мемориального зеркала Свиридова) потребовалось совершить:

perl -p -i.scrback -e 'use utf8; tr/√┘╚╩/—…«»/'

UPD3: Вот так работает. Спасибо коллеге shaplov

cat vskon-orig.htm | perl -e '
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
use utf8;
while(my $a=<STDIN>) {
$a=~tr/√┘╚╩/—…«»/;
print $a
}' >vskon-result.htm


Collapse )