Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > приколы perl

Автор: gcc 28.6.2008, 20:57

Код


#!/usr/bin/perl
$_='
         $q ="\                   47"; wh
        ile                           ($;=
      $z                +=              .5 ){
    %c=           $r=0;$/ ="";whi         le(2
   0+          $z>($;+=.05)){$c{int$       _+ 2
  6+         2*($              r+= .0       2) *
s          in$                ;}{1       -$_
+1         0+           int        $r*c       o s
$;}         =1for(0.       .1)        }$
t        =r         ever se;$        /.        =`
c        le        ar     `.         "         #!
/        usr       /bi             n/         pe
rl       \n\       $_ =$q        \n"    ;
fo        r$y        (1..20){$c{$_}          {
$ y       }? $         /.=chop$t            :
($/        . ="                          \4
0")         for(0.                    .53)    ;
   $/.        ="\n"}pri            nt"$/$          q;
   s; ".         chr(9 2)."s;;g;eval\n           "}

';s;\s;;g;eval

Поэзия в Perl

На Perl можно даже писать стихотворения. Одно из таких стихотворений под названием «Black Perl» («Чёрная жемчужина» или «Чёрный перл») было упомянуто Ларри Уоллом в первоапрельском письме в Usenet. Оно было написано изначально для Perl 3, и по словам самого Ларри, он испытал моральное удовлетворение, когда стихотворение не прошло синтактический анализатор в Perl 5.

Код

BEFOREHEAD: close door, each window & exit; wait until time.
 open spellbook, study, read (scan, select, tell us);
 write it, print the hex whole each watches,
 reverse its length, write again;
 kill spiders, pop them, chop, split, kill them.
 unlink arms, shift, wait & listen (listening, wait),
 sort the flock (then, warn the "goats" & kill the "sheep");
 kill them, dump qualms, shift moralities,
 values aside, each one;
 die sheep! die to reverse the system
 you accept (reject, respect);
 next step,
 kill next sacrifice, each sacrifice,
 wait, redo ritual until "all the spirits are pleased";
 do it ("as they say").
 do it(*everyone***must***participate***in***forbidden**s*e*x*).
 return last victim; package body;
 exit crypt (time, times & "half a time") & close it,
 select (quickly) & warn your next victim;
 AFTERWORDS: tell nobody,
 wait, wait until time;
 wait until next year, next decade;
 sleep, sleep, die yourself,
 die at last

кто еще видел?

Автор: KSURi 28.6.2008, 21:10

Все подобные вещи можно объединить под названием JAPH (Just Another Perl Hacker), звучит все-таки солиднее, чем "приколы перл" ;)
Примеры кода можно посмотреть здесь - http://www.cpan.org/misc/japh.

На CPAN'e есть http://search.cpan.org/~asavige/Acme-EyeDrops-1.52/lib/Acme/EyeDrops.pm, позволяющий привести любой код к JAPH виду.
Заинтересовавшимся также советую обратить внимание на вид "спорта" http://perlgolf.sourceforge.net/.

Автор: gcc 28.6.2008, 21:34

Цитата(KSURi @ 28.6.2008, 21:10)

http://www.cpan.org/misc/japh

по этой ссылке скипты кто-то писал?? или модулем сделали все скрипты?

Автор: KSURi 28.6.2008, 21:54

Конечно же сами писали)
Модуль, про который я написал, не имеет такого богатого функционала. Там есть коллекция образов к которым приводится входной код