<div dir="ltr">Ну-да, я взял JAPH-вариант из вики и сделал, чтобы он печатал South Perl.<br>Этот вариант использует операторы и функции Perl.<br><br>За простенький вариант спасибо, выложи его в вики.<br><br><div class="gmail_quote">
2008/9/2 Andrey Alakozov <span dir="ltr"><<a href="mailto:aa29ww@gmail.com">aa29ww@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Привет,<br>
<br>
Я сначала подумал, что свое придумали... а оказалось переделкой одного из вариантов <a href="http://en.wikipedia.org/wiki/Just_another_Perl_hacker" target="_blank">http://en.wikipedia.org/wiki/Just_another_Perl_hacker</a><br>
<br>
Кстати, в исходном варианте использовались только ключевые слова Perl, так что последовательнее так:<br>
<br>
not exp log srand xor s qq qx xor<br>
s m m length uc ord and print chr<br>
ord for qw q s our use tr hex q m<br>
xor eval xor print qq q q xor int<br>
eval lc q m cos and print chr ord<br>
for m xor scalar ord sin print qq<br>
qq xor int eval lc qq y split cos<br>
and print chr ord for qw x printf<br>
each return local x y and do exit<br>
<br>
Вот простенькое, зато свое:<br>
<br>
s/<br>
/0831111171161<br>
04 Rostov- 03<br>
20 on-Don 80<br>
10 November 11<br>
14 1 '08 03<br>
20 ======== 86<br>
09 Welcome! 71<br>
04 ======== 03<br>
3083104111112/x<br>
;s/\D//g;s/\d\d<br>
\d/chr($&)/gex;<br>
print;<br>
<br>
Anatoly Sharifulin wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="Ih2E3d">
Наверное, не все заценили Just for fun, размещенный в разделе Wiki.<br>
<br>
<a href="http://rostovondon.pm.org/southperl/fun/japh.html" target="_blank">http://rostovondon.pm.org/southperl/fun/japh.html</a><br>
<a href="http://rostovondon.pm.org/southperl/fun/southpark.gif" target="_blank">http://rostovondon.pm.org/southperl/fun/southpark.gif</a><br>
<br></div>
2 сентября 2008 г. 11:44 пользователь Anatoly Sharifulin <<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a> <mailto:<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a>>> написал:<div class="Ih2E3d">
<br>
<br>
Редактирование профиля, PM-группа.<br>
И ссылочку на <a href="http://rostovondon.pm.org/" target="_blank">http://rostovondon.pm.org/</a><br>
<br>
2 сентября 2008 г. 11:41 пользователь Dmitry Diskin<br></div>
<<a href="mailto:diskin@gmail.com" target="_blank">diskin@gmail.com</a> <mailto:<a href="mailto:diskin@gmail.com" target="_blank">diskin@gmail.com</a>>> написал:<div class="Ih2E3d"><br>
<br>
А где это там? Я зарегистрировался, но такого не вводил...<br>
<br>
On Tue, Sep 2, 2008 at 11:38 AM, Anatoly Sharifulin<br></div><div class="Ih2E3d">
<<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a> <mailto:<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a>>> wrote:<br>
> При регистрации не забываем указывать откуда мы, из<br>
RostovOnDon.pm :)<br>
><br>
> 2008/9/2 Anatoly Sharifulin <<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a><br></div>
<mailto:<a href="mailto:sharifulin@gmail.com" target="_blank">sharifulin@gmail.com</a>>><div class="Ih2E3d"><br>
>><br>
>> <a href="http://it.mmcs.rsu.ru/" target="_blank">http://it.mmcs.rsu.ru/</a>, смотрим раздел новости :)<br>
>><br>
>> 1 сентября 2008 г. 14:27 пользователь Eugene Toropov<br></div>
<<a href="mailto:jt@aaanet.ru" target="_blank">jt@aaanet.ru</a> <mailto:<a href="mailto:jt@aaanet.ru" target="_blank">jt@aaanet.ru</a>>><div class="Ih2E3d"><br>
>> написал:<br>
>>><br>
>>> Афигеть! :)<br>
>>><br>
>>><br>
>>> ----- Original Message -----<br>
>>> From: Anatoly Sharifulin<br>
>>> To: Rostov-on-Don Perl Mongers<br>
>>> Sent: Monday, September 01, 2008 12:18 PM<br>
>>> Subject: [RostovOnDon.pm] South Perl<br>
>>> "Поехали!"<br>
>>><br>
>>> Воркшоп «South Perl» является третьим Российским<br>
Perl-мероприятием в 2008<br>
>>> году, который пройдет 1 ноября 2008 года в Ростове-на-Дону,<br>
подробнее.<br>
>>><br>
>>> Участие бесплатное. Для того, чтобы попасть на мероприятие<br>
достаточно<br>
>>> просто зарегистрироваться.<br>
>>> Приглашаем докладчиков и спонсоров.<br>
>>><br>
>>> Официальные языки мероприятия — русский и Perl.<br>
>>> Официальный сайт — <a href="http://rpw2008.perlrussia.ru" target="_blank">rpw2008.perlrussia.ru</a><br></div>
<<a href="http://rpw2008.perlrussia.ru" target="_blank">http://rpw2008.perlrussia.ru</a>>.<div class="Ih2E3d"><br>
>>> Официальный тег — rpw2008.<br>
>>><br>
>>> --<br>
>>> С уважением,<br>
>>> Анатолий Шарифулин.<br>
>>><br>
>>> ________________________________<br>
>>><br>
>>> _______________________________________________<br>
>>> RostovOnDon-pm mailing list<br></div>
>>> <a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a> <mailto:<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a>><div class="Ih2E3d"><br>
>>> <a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
>>><br>
>>> _______________________________________________<br>
>>> RostovOnDon-pm mailing list<br></div>
>>> <a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a> <mailto:<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a>><div class="Ih2E3d"><br>
>>> <a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
>>><br>
>><br>
>><br>
>><br>
>> --<br>
>> С уважением,<br>
>> Анатолий Шарифулин.<br>
><br>
><br>
><br>
> --<br>
> С уважением,<br>
> Анатолий Шарифулин.<br>
><br>
> _______________________________________________<br>
> RostovOnDon-pm mailing list<br></div>
> <a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a> <mailto:<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a>><div class="Ih2E3d"><br>
> <a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
><br>
><br>
<br>
<br>
<br>
--<br>
Dmitry<br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br></div>
<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a> <mailto:<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a>><div class="Ih2E3d"><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
<br>
<br>
<br>
<br>
-- С уважением,<br>
Анатолий Шарифулин.<br>
<br>
<br>
<br>
<br>
-- <br>
С уважением,<br>
Анатолий Шарифулин.<br>
<br>
<br>
------------------------------------------------------------------------<br>
<br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br>
<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
</div></blockquote>
<br>
<br>
-- <br><font color="#888888">
Andrey</font><div><div></div><div class="Wj3C7c"><br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br>
<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.<br>
</div>