https://www.opennet.ru/openforum/vsluhforumID9/8644.html Есть файл скажем содержащий это 20 ef f0 e8 20, нужен на perl скрипт который бы заменял 16-ричный код на соответствующий символ из кодовой таблицы cp1251 скажем (также cp866).<br>Как это сделать наиболее грамотно и рационально, не городить же вещи типа:<br>$str=~ s/ef/п/<br>$str=~ s/f0/р/<br>$str=~ s/e8/и/<br>и т.д.<br>Может быть есть готовая функция?<br> https://www.opennet.ru/openforum/vsluhforumID9/8644.html#4 Sat, 13 Mar 2010 10:32:21 GMT спасибо.<br> https://www.opennet.ru/openforum/vsluhforumID9/8644.html#3 Sat, 13 Mar 2010 09:08:13 GMT &gt;Почитал про модуль, что-то не очень понимаю чем он мне может помочь. <br>&gt;<br>&gt;Можно поконкретнее ткнуть носом? <br><br>sproot@matrix:tmp$ cat test.txt<br>20 ef f0 e8 20<br>sproot@matrix:tmp$ perl -MEncode -i'.orig' -ne '$_=~s/([[:xdigit:]]{2})/chr(hex($1))/eg; print decode("cp1251", $_);' test.txt<br>Wide character in print at -e line 1, &lt;&gt; line 1.<br>sproot@matrix:tmp$ cat test.txt<br> п р и<br><br> https://www.opennet.ru/openforum/vsluhforumID9/8644.html#2 Fri, 12 Mar 2010 13:25:33 GMT Почитал про модуль, что-то не очень понимаю чем он мне может помочь.<br>Можно поконкретнее ткнуть носом?<br> https://www.opennet.ru/openforum/vsluhforumID9/8644.html#1 Fri, 12 Mar 2010 10:19:05 GMT &gt;Есть файл скажем содержащий это 20 ef f0 e8 20, нужен на <br>&gt;perl скрипт который бы заменял 16-ричный код на соответствующий символ из <br>&gt;кодовой таблицы cp1251 скажем (также cp866). <br>&gt;Как это сделать наиболее грамотно и рационально, не городить же вещи типа: <br>&gt;<br>&gt;$str=~ s/ef/п/ <br>&gt;$str=~ s/f0/р/ <br>&gt;$str=~ s/e8/и/ <br>&gt;и т.д. <br>&gt;Может быть есть готовая функция? <br><br>Есть модуль Encode.<br>