VPF::Перловые прикольчики с кодом! :)

Wowa

Дата 25.4.2002, 01:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

УРЛ: 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

Код


#!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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Модератор
Сообщений: 902
Регистрация: 25.3.2002

Репутация: нет
Всего: 9

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

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »