<div>áÎÔÏÎ, òÕÓÌÁÎ, ÓÐÁÓÉÂÏ </div><div>ÉÔÏÇ<br />https://github.com/mishin/gists/blob/master/gtrans2.pl<br />š<br />#use utf8;<br />#use open qw<:std>;<br />use open OUT => ':encoding(cp1251)';<br />š<br />š<br />&main;<br />exit;<br />š<br />sub main {<br />ššš translate_text( $from, $to, $text );<br />}<br />š<br />sub translate_text {<br />ššš my ( $from, $to, $words ) = @_;<br />š<br />ššš my $url =<br />ššššššš 'http://translate.google.com/translate_t?langpair='<br />ššššš . $from . '|'<br />ššššš . $to<br />ššššš . '&text=' . '+'<br />ššššš . $words;<br />ššš my $ua = LWP::UserAgent->new;<br />ššš $ua->agent('');<br />ššš my $res = $ua->get($url);<br />ššš die $res->status_line if $res->is_error;<br />ššš my $html = $res->decoded_content;<br />š<br />ššš my @matches =<br />ššššš $html =~ m{onmouseout="this.style.backgroundColor='#fff'">(.*?)</span>}g;<br />š<br />ššš foreach my $translated_string (@matches) {<br />š<br />ššššššš # my $flag = utf8::is_utf8($translated_string);<br />ššššššš # say "[ $flag ]"; $flag==1<br />ššššššš utf8::encode($translated_string);<br />ššššššš say $translated_string;<br />ššš }<br />}<br />š<br />ÍÅÎÑ ÕÄÉ×ÉÌÏ, ÞÔÏ ÍÏÖÎÏ ÚÁËÏÍÍÅÎÔÉÒÏ×ÁÔØ use utf8, ×ÉÄÉÍÏ ÏΠÇÄÅ-ÔÏ ÅÓÔØ ÅÝÅ</div><div><br />š</div><blockquote type="cite"><div>š</div><div>05.09.2013, 23:24, "Anton Nikishaev" <<a href="mailto:me@lelf.lu">me@lelf.lu</a>>:</div><blockquote type="cite"><p>On Sep 5, 2013, at 11:14 PM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:</p><blockquote>šòÕÓÌÁÎ, ËÒÕÔÏ, ÔÁË šÒÁÂÏÔÁÅÔ<br /><br />šuse utf8;<br />šuse open OUT => ':encoding(cp1251)';</blockquote><p>+use open qw<:std>;</p><blockquote>šsub translate_text {<br />šššššmy ( $from, $to, $words ) = @_;<br /><br />šššššmy $url =<br />ššššššššš'<a href="http://translate.google.com/translate_t?langpair='">http://translate.google.com/translate_t?langpair='</a><br />ššššššš. $from . '|'<br />ššššššš. $to<br />ššššššš. '&text=' . '+'<br />ššššššš. $words;<br />šššššmy $ua = LWP::UserAgent->new;<br />ššššš$ua->agent('');<br />šššššmy $res = $ua->get($url);<br />šššššdie $res->status_line if $res->is_error;<br />šššššmy $html = $res->decoded_content;<br /><br />šššššmy @matches =<br />ššššššš$html =~ m{onmouseout="this.style.backgroundColor='#fff'">(.*?)</span>}g;<br /><br />šššššforeach my $translated_string (@matches) {<br />šššššššššsay $translated_string;<br />ššššš}<br />š}<br /><br />š<a href="https://github.com/mishin/gists/blob/master/gtrans2.pl">https://github.com/mishin/gists/blob/master/gtrans2.pl</a><br />šÎÏ<br />š$./gtrans2.pl --from en --to ru --text "This is a test"<br />šWide character in say at ./gtrans2.pl line 63.<br />šüÔÏ ÔÅÓÔ<br /><br />š05.09.2013, 22:50, "Ruslan Zakirov" <<a href="mailto:ruz@bestpractical.com">ruz@bestpractical.com</a>>:<br /><blockquote>š->decoded_content É use open OUT => ':encoding(cp1251)';<br /><br />šôÏÇÄÁ ÓÏ×ÓÅÍ ÍÏÖÎÏ ÎÅ ÚÁÍÏÒÁÞÉ×ÁÔØÓÑ :)<br /><br /><br />š2013/9/5 Anton Nikishaev <<a href="mailto:me@lelf.lu">me@lelf.lu</a>><br /><br />šOn Sep 5, 2013, at 10:16 PM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:<br /><blockquote>ššEncode::from_to( $translated_string, 'koi8', 'cp1251' );<br /><br />š$perl gtrans.pl --from=en --to=ru --text='This is a test'<br />šUnknown encoding 'KOI8' at gtrans.pl line 63</blockquote>šïÎÁ ÎÁÚÙ×ÁÅÔÓÑ koi8-r<br /><blockquote>š05.09.2013, 20:01, "ïÌÅÇ áÌÅËÓÅÅÎËÏ×" <<a href="mailto:proler@gmail.com">proler@gmail.com</a>>:<br /><blockquote>šNikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> ÐÉÓÁÌ(Á) × Ó×ϣ͠ÐÉÓØÍÅ Thu, 05 Sep 2013<br />š08:38:50 +0400:<br /><blockquote>šš×ÏÐÒÏÓ, ÍÏÖÎÏ ÌÉ ÓÔÒÏËÕ<br />ššConvert::Cyrillic::cstocs( 'KOI8', 'UTF8', $translated_string );<br />ššEncode::from_to( $interm_var, 'utf-8', 'cp1251' );<br />ššÚÁÍÅÎÉÔØ ÏÄÎÉÍ ÐÒÅÏÂÒÁÚÏ×ÁÎÉÅÍ, ÞÔÏÂÙ ÎÁ ×ÙÈÏÄÅ ÂÙÌ win1251?<br />ššÕ ÍÅÎÑ ÜÔÏÇÏ ÎÅ ÐÏÌÕÞÉÌÏÓØ</blockquote>šÁ ÐÏÞÅÍÕ ÎÅ ÒÁÂÏÔÁÅÔ<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/">http://moscow.pm.org</a></blockquote>š--<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/">http://moscow.pm.org</a></blockquote>š--<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><br /><br /><br /><br />š-- <br />šBest regards, Ruslan.<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/">http://moscow.pm.org</a></blockquote>š-- <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/">http://moscow.pm.org</a></blockquote><p>š</p>,<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></blockquote><div>š</div><div>š</div><div>-- <br /><div>ó Õ×ÁÖÅÎÉÅÍ</div><div>îÉËÏÌÁÊ íÉÛÉÎ<br /><div>š</div></div></div>