[Moscow.pm] перекодировка

[Nikolay Mishin]

MoscowPM, добрый день,

 

Есть скрипт

перевода гугла из командной строки

https://github.com/mishin/gists/blob/master/gtrans.pl

запускается

gtrans.pl --from en --to ru --text "This is a test"

из командной строки
гугл выдает строки в KOI

я парсю вывод гугла:

 my @matches =

      $html =~ m{_onmouseout_="this.style.backgroundColor='#fff'">(.*?)</span>}g;

 

    foreach my $translated_string (@matches) {

        my $interm_var =

          Convert::Cyrillic::cstocs( 'KOI8', 'UTF8', $translated_string );

        Encode::from_to( $interm_var, 'utf-8', 'cp1251' );

        say $interm_var;

    }

 

вопрос, можно ли строку

 

          Convert::Cyrillic::cstocs( 'KOI8', 'UTF8', $translated_string );

        Encode::from_to( $interm_var, 'utf-8', 'cp1251' );

 

заменить одним преобразованием, чтобы на выходе был win1251?

у меня этого не получилось

спасибо

 

-

С уважением

Николай Мишин

 

-- 
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org