<div>Руслан, круто, так  работает </div><div> </div><div>use utf8;<br />use open OUT => ':encoding(cp1251)';</div><div><div> </div><div><span>sub </span><span>translate_text</span> <span>{</span></div><div>    <span>my</span> <span>(</span> <span>$from</span><span>,</span> <span>$to</span><span>,</span> <span>$words</span> <span>)</span> <span>=</span> <span>@_</span><span>;</span></div><div> </div><div>    <span>my</span> <span>$url</span> <span>=</span></div><div>        <span>'http://translate.google.com/translate_t?langpair='</span></div><div>      <span>.</span> <span>$from</span> <span>.</span> <span>'|'</span></div><div>      <span>.</span> <span>$to</span></div><div>      <span>.</span> <span>'&text='</span> <span>.</span> <span>'+'</span></div><div>      <span>.</span> <span>$words</span><span>;</span></div><div>    <span>my</span> <span>$ua</span> <span>=</span> <span>LWP::</span><span>UserAgent</span><span>-></span><span>new</span><span>;</span></div><div>    <span>$ua</span><span>-></span><span>agent</span><span>(</span><span>''</span><span>);</span></div><div>    <span>my</span> <span>$res</span> <span>=</span> <span>$ua</span><span>-></span><span>get</span><span>(</span><span>$url</span><span>);</span></div><div>    <span>die</span> <span>$res</span><span>-></span><span>status_line</span> <span>if</span> <span>$res</span><span>-></span><span>is_error</span><span>;</span></div><div>    <span>my</span> <span>$html</span> <span>=</span> <span>$res</span><span>-></span><span>decoded_content</span><span>;</span></div><div> </div><div>    <span>my</span> <span>@matches</span> <span>=</span></div><div>      <span>$html</span> <span>=~</span> <span>m{onmouseout="this.style.backgroundColor='#fff'">(.*?)</span>}g</span><span>;</span></div><div> </div><div>    <span>foreach</span> <span>my</span> <span>$translated_string</span> <span>(</span><span>@matches</span><span>)</span> <span>{</span></div><div>        <span>say</span> <span>$translated_string</span><span>;</span></div><div>    <span>}</span></div><div><span>}</span></div></div><div> </div><div><a href="https://github.com/mishin/gists/blob/master/gtrans2.pl">https://github.com/mishin/gists/blob/master/gtrans2.pl</a></div><div>но</div><div>$./gtrans2.pl --from en --to ru --text "This is a test"<br />Wide character in say at ./gtrans2.pl line 63.<br />Это тест</div><div> </div><div>05.09.2013, 22:50, "Ruslan Zakirov" <ruz@bestpractical.com>:</div><blockquote type="cite"><div>->decoded_content и use open OUT => ':encoding(cp1251)';<div> </div><div>Тогда совсем можно не заморачиваться :)</div></div><div><br /><br /><div>2013/9/5 Anton Nikishaev <span><<a href="mailto:me@lelf.lu" target="_blank">me@lelf.lu</a>></span><br /><blockquote style="margin:0 0 0 0.8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><br /> On Sep 5, 2013, at 10:16 PM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:<br /> <br /> >  Encode::from_to( $translated_string, 'koi8', 'cp1251' );<br /> ><br /> > $perl <a href="http://gtrans.pl/" target="_blank">gtrans.pl</a> --from=en --to=ru --text='This is a test'<br /> > Unknown encoding 'KOI8' at <a href="http://gtrans.pl/" target="_blank">gtrans.pl</a> line 63<br /> </div>Она называется koi8-r<br /><div><div><br /> <br /> > 05.09.2013, 20:01, "Олег Алексеенков" <<a href="mailto:proler@gmail.com">proler@gmail.com</a>>:<br /> >> Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> писал(а) в своём письме Thu, 05 Sep 2013<br /> >> 08:38:50 +0400:<br /> >><br /> >>>  вопрос, можно ли строку<br /> >>>  Convert::Cyrillic::cstocs( 'KOI8', 'UTF8', $translated_string );<br /> >>>  Encode::from_to( $interm_var, 'utf-8', 'cp1251' );<br /> >>>  заменить одним преобразованием, чтобы на выходе был win1251?<br /> >>>  у меня этого не получилось<br /> >><br /> >> а почему не работает<br /> >> Encode::from_to( $interm_var, 'koi8', 'cp1251' );<br /> >> ?<br /> >> --<br /> >> Moscow.pm mailing list<br /> >> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br /> ><br /> > --<br /> > С уважением<br /> > Николай Мишин<br /> ><br /> > --<br /> > Moscow.pm mailing list<br /> > <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br /> </div></div><br />--<br /> Moscow.pm mailing list<br /> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" target="_blank">http://moscow.pm.org</a><br /> </blockquote></div><br /><br /><div> </div>-- <br />Best regards, Ruslan.</div>,<p>-- <br />Moscow.pm mailing list<br /><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/">http://moscow.pm.org</a></p></blockquote><div> </div><div> </div><div>-- <br /><div>С уважением</div><div>Николай Мишин<br /><div> </div></div></div>