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

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

Форум программистов > Perl: Общие вопросы > Перловые прикольчики с кодом! :)

Автор: Wowa 25.4.2002, 01:49

УРЛ: http://perlmonks.org/index.pl?node=Obfuscated%20Code

А вот и прикольчик с кодом: На приведенной выше странице, таких много.
Часто проводятся различные конкурсы.

Код


#!/usr/bin/perl -w

             seek(DATA,0,0)
          ;@;=<DATA>;push@a,#)
        substr            ($;[$_
      ],11                    ,18)
     for     (10.      ..14     );{
    ;};     substr    ($;[$_     ],+
    11,      +18,      pop       @a)
    &&                            s;
    's           (10..1)          DA
    TA       (10..1)';'join       &&
    pop     \@a[        \$_]     \;#
    for    |,0            ,+0    @a&
     for   ee              k|    +';
      for(                    10..
        14);$_             =join
          "",@;;print;s;smile;
             cry;;!

Автор: Wowa 25.4.2002, 01:54

Код


#!Perl


$t='';for           (a..z){push  @l
,$_};$_='           1021192012012625'
;print"\n"          ;@i=split/(\d{2})/
;for(  1..          ($#i-3)+sqrt 9)
{  unless           ( $_ % 2 ==  0)
{push  @o,          $i[$_]}};   for
(@o){  $t           .=$l[$_-1]};;
@l= split           /(.{4})/,$t,2;
print'=>',          reverse($l[2],
' ',$l[01           ]),"\n";#$@i );

Автор: BearBeer 26.5.2002, 11:30

вот что я нашел.

http://www.lflat.net/stuff/quadri.html