<html><head><meta http-equiv="Content-Type" content="text/html charset=koi8-r"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>Привет,</div><div><br></div><div>Если взять то, что работает у них на сайте - <a href="http://translate.google.com/translate_a/t?client=t&sl=auto&tl=ru&hl=ru&sc=2&ie=UTF-8&oe=UTF-8&uptl=ru&alttl=en&oc=1&otf=2&ssel=0&tsel=0&q=%D1%87%D0%B8%D1%82%D0%B0%D1%82%D1%8C">http://translate.google.com/translate_a/t?client=t&sl=auto&tl=ru&hl=ru&sc=2&ie=UTF-8&oe=UTF-8&uptl=ru&alttl=en&oc=1&otf=2&ssel=0&tsel=0&q=%D1%87%D0%B8%D1%82%D0%B0%D1%82%D1%8C</a> - и посмотреть параметры, то ie - это видимо input encoding, oe - output encoding - по идее то, что вам нужно</div><div><br></div><div>Евгений</div><br><div><div>On Sep 5, 2013, at 8:38 AM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>MoscowPM, добрый день,</div><div> </div><div>Есть скрипт</div><div>перевода гугла из командной строки</div><div><a href="https://github.com/mishin/gists/blob/master/gtrans.pl">https://github.com/mishin/gists/blob/master/gtrans.pl</a></div><div>запускается</div><div><pre><span>gtrans.pl --from en --to ru --text "This is a test"<br><br>из командной строки<br>гугл выдает строки в KOI<br><br>я парсю вывод гугла:<br></span></pre><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>my</span> <span>$interm_var</span> <span>=</span></div><div> <span>Convert::Cyrillic::</span><span>cstocs</span><span>(</span> <span>'KOI8'</span><span>,</span> <span>'UTF8'</span><span>,</span> <span>$translated_string</span> <span>);</span></div><div> <span>Encode::</span><span>from_to</span><span>(</span> <span>$interm_var</span><span>,</span> <span>'utf-8'</span><span>,</span> <span>'cp1251'</span> <span>);</span></div><div> <span>say</span> <span>$interm_var</span><span>;</span></div><div> <span>}</span></div><div> </div><div><span>вопрос, можно ли строку</span></div><div> </div><div><div> <span>Convert::Cyrillic::</span><span>cstocs</span><span>(</span> <span>'KOI8'</span><span>,</span> <span>'UTF8'</span><span>,</span> <span>$translated_string</span> <span>);</span></div><div> <span>Encode::</span><span>from_to</span><span>(</span> <span>$interm_var</span><span>,</span> <span>'utf-8'</span><span>,</span> <span>'cp1251'</span> <span>);</span></div><div> </div><div><span>заменить одним преобразованием, чтобы на выходе был win1251?</span></div><div><span>у меня этого не получилось</span></div><div><span>спасибо</span></div></div></div><div> </div><div>- <br><div>С уважением</div><div>Николай Мишин<br><div> </div></div></div>-- <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></blockquote></div><br></body></html>