<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: исполнение perl из-под bash</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html</link>
    <description>пытаюсь настроить конвертацию текста сообщений, прилетающих на e-mail.&lt;br&gt;Коротко структура&lt;br&gt;getmail - забирает письмо и отправляет его в procmail.&lt;br&gt;в procmail текст сообщения отправляется в исполняемый bash-файл&lt;br&gt;:0b&lt;br&gt;&amp;#124; /path/to/bash-файл&lt;br&gt;&lt;br&gt;в bash-файле текст письма записывается в файл и должна произвестись конвертация&lt;br&gt;&lt;br&gt;#!/bash/sh&lt;br&gt;&lt;br&gt;tmp=$(mktemp /tmp/tmp.XXXXXX)&lt;br&gt;cat &amp;gt;$tmp&lt;br&gt;OUTFILE=$(mktemp /tmp/tmp.decode.XXXXX)&lt;br&gt;&lt;br&gt;awk &apos;&#123;print $0&#125;&apos; &amp;lt; $tmp &amp;#124; perl -e &apos;use MIME::Decoder; $decoder = new MIME::Decoder &quot;quoted-printable&quot;; $decoder-&amp;gt;decode(&#092;*STDIN, &#092;*STDOUT);&apos; &amp;#124; iconv -f CP1251 &amp;gt; $OUTFILE&lt;br&gt;&lt;br&gt;но этого не происходит, причем если я в командной строке исполню awk... то все нормально.&lt;br&gt;&lt;br&gt;Пример текста сообщения:&lt;br&gt;test:=D0=CA=D1=C8, 16:30:28, =C3=EE=&lt;br&gt;=F0=E1=F3=ED=EE=E2 =D1=E5=F0=E3=E5=E9, =E2=FB=F5=EE=E4&lt;br&gt;&lt;br&gt;что я делаю не так?&lt;br&gt;</description>

<item>
    <title>исполнение perl из-под bash (pavlinux)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#23</link>
    <pubDate>Sat, 22 Aug 2015 01:39:45 GMT</pubDate>
    <description>&lt;br&gt;&amp;gt; Куда золото отправлять? &lt;br&gt;&lt;br&gt;В Опеннет http://www.opennet.ru/contact.shtml, а то у него сервера грохаются. :)&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (wellus)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#22</link>
    <pubDate>Wed, 19 Aug 2015 07:53:31 GMT</pubDate>
    <description>вот теперь порядок, работает! )&lt;br&gt;Куда золото отправлять? могу тебе на телефон положить.&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (pavlinux)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#21</link>
    <pubDate>Tue, 18 Aug 2015 18:41:18 GMT</pubDate>
    <description>&amp;gt; ------------------------------- &lt;br&gt;&amp;gt; 1000р - нормально будет?&lt;br&gt;&lt;br&gt;По 4.29 руб за байт;&lt;br&gt;&#091;code&#093;&lt;br&gt;#!/usr/bin/perl&lt;br&gt;&lt;br&gt;use strict;&lt;br&gt;use utf8;&lt;br&gt;use MIME::QuotedPrint qw(decode_qp);&lt;br&gt;use Encode qw(decode);&lt;br&gt;use open &apos;:std&apos;,&apos;:encoding(UTF-8)&apos;;&lt;br&gt;&lt;br&gt;my $in;&lt;br&gt;my $out;&lt;br&gt;&lt;br&gt;foreach $in (&amp;lt;&amp;gt;) &#123;&lt;br&gt;        $out = decode_qp($in);&lt;br&gt;        print decode(&quot;cp1251&quot;, $out);&lt;br&gt;&#125;&lt;br&gt;&#091;/code&#093;&lt;br&gt;&lt;br&gt; &lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (pavlinux)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#20</link>
    <pubDate>Tue, 18 Aug 2015 17:42:37 GMT</pubDate>
    <description>&amp;gt;  ... только &quot;&#092;x &quot; предательский вылазит ... &lt;br&gt;&lt;br&gt;пробелы надо игнорить &lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (wellus)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#19</link>
    <pubDate>Mon, 17 Aug 2015 16:39:14 GMT</pubDate>
    <description>и чем тАдА это отличается от моего варианта? )))&lt;br&gt;&lt;br&gt;я на основе твоего варианта сделал так:&lt;br&gt;&lt;br&gt;#/bin/sh&lt;br&gt;&lt;br&gt;tmp=$(mktemp /tmp/tmp.XXXXXX)&lt;br&gt;cat &amp;gt;$tmp&lt;br&gt;OUTFILE=$(mktemp /tmp/tmp.decode.XXXXX)&lt;br&gt;&lt;br&gt;&lt;br&gt;echo -e $(cat $tmp &amp;#124; sed &apos;s/=/&#092;&#092;x/g&apos;) &amp;#124; iconv -f CP1251 &amp;#124; awk &apos;BEGIN &#123;FS = &quot;:&quot;; RS = &quot;&quot;&#125; &#123;printf &quot;To: &quot;$1; print &quot;&quot;; print &quot;&quot;; printf $2&quot;:&quot;; printf $3&quot;:&quot;; print $4&#125;&apos; &amp;gt; $OUTFILE&lt;br&gt;&lt;br&gt;Получилось:&lt;br&gt;&lt;br&gt;To: test&lt;br&gt;&lt;br&gt;&#092;xD0&#092;xCA&#092;xD1&#092;xC8, 11:03:13, &#092;xC3&#092;xEE&#092;x &#092;xF0&#092;xE1&#092;xF3&#092;xED&#092;xEE&#092;xE2 &#092;xD1&#092;xE5&#092;xF0&#092;xE3&#092;xE5&#092;xE9, &#092;xE2&#092;xFB&#092;xF5&#092;xEE&#092;xE4&lt;br&gt;&lt;br&gt;&lt;br&gt;а в коммандной строке работает ... только &quot;&#092;x &quot; предательский вылазит ... &lt;br&gt;&lt;br&gt;To: test&lt;br&gt;&lt;br&gt;РКСИ, 11:03:13, Го&#092;x рбунов Сергей, выход&lt;br&gt;&lt;br&gt;-------------------------------&lt;br&gt;1000р - нормально будет?&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (pavlinux)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#18</link>
    <pubDate>Mon, 17 Aug 2015 10:47:40 GMT</pubDate>
    <description>&amp;gt; не сработал твой скрипт ))) &lt;br&gt;&lt;br&gt;Патамуша я дятел, вместо MIME quoted printable декодил из base64 &#037;-)&#091;code&#093;&lt;br&gt;$ echo -e $(echo &apos;test:=D0=CA=D1=C8, 16:30:28, =C3=EE=F0=E1=F3=ED=EE=E2 =D1=E5=F0=E3=E5=E9, =E2=FB=F5=EE=E4&apos; &amp;#124; sed &apos;s/=/&#092;&#092;x/g&apos;) &amp;#124; iconv -f cp1251;&lt;br&gt;test:РКСИ, 16:30:28, Горбунов Сергей, выход&lt;br&gt;&#091;/code&#093;&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (wellus)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#17</link>
    <pubDate>Mon, 17 Aug 2015 05:59:48 GMT</pubDate>
    <description>не сработал твой скрипт )))&lt;br&gt;кидай почту, договоримся&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (Pahanivo)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#16</link>
    <pubDate>Sun, 16 Aug 2015 19:20:50 GMT</pubDate>
    <description>&amp;gt; Не, я - ленивое говно, которое читает доки =) &lt;br&gt;&lt;br&gt;противоречие, однако :)&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>исполнение perl из-под bash (pavlinux)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/10026.html#15</link>
    <pubDate>Sat, 15 Aug 2015 22:48:57 GMT</pubDate>
    <description>&amp;gt;&amp;gt;&amp;gt; Ладно, зайдем по-другому, за вознаграждение может кто напишет?&lt;br&gt;&amp;gt;&amp;gt; О, а что ж раньше молчал. Сумма?&lt;br&gt;&amp;gt; Pavlinux - ты таки извращенец! Хотя после шахмат на awk-е меня уже &lt;br&gt;&amp;gt; ничем не прошибёшь :))) &lt;br&gt;&lt;br&gt;Не, я - ленивое говно, которое читает доки =) &lt;br&gt;&#091;code&#093;&lt;br&gt;&#091;b&#093;Advanced Bash-Scripting Guide&#091;/b&#093;: Example A-54. Base64 encoding/decoding &lt;br&gt;&lt;br&gt;http://www.tldp.org/LDP/abs/html/contributed-scripts.html&lt;br&gt;&#091;/code&#093;&lt;br&gt;&lt;br&gt;Но код ещё можно за оптимизить, куски с xxd и sed тоже на баше переписать. &lt;br&gt;</description>
</item>

</channel>
</rss>
