Читали ли вы FAQ в данном разделе?

[Chs]

Читали ли вы FAQ в данном разделе?

[Боря Елкин]

Посмотрел, вроде все знакомое.

Про задачку расскажи, мне непонятно такое

[Chs]

Про задачку расскажи, мне непонятно такое

Так она на то и задачка, что бы это понять.
Что делает - понятно. Весь вопрос - как?

[Green Kakadu]

Весь вопрос - как?

Все-таки не зря perl программеров извращенцами зовут, об этом я даже в одной книжке прочитал, что мол было бы все ничего, язык с мощными возможностями, удобный, но, блин, сами перлисты программисты любят делать свой код как можно более непонятным, программисткий садо-мазо
"Нет, и не буду" - 1шт., наверняка какой-нибудь шальной php\'шник забрел.
А вообще, FAQ классный  его бы что ли позаметнее как-нибудь сделать

[Oak]

Ну не то чтобы я заядлый PHP-шник.....
Но просто честно сказал, что не буду читать  
 Не интересно как-то....

[Боря Елкин]

сами перлисты программисты любят делать свой код как можно более непонятным, программисткий садо-мазо

Не знаю, мне всегда казалось, что на перле код наоборот более читаемый. Ведь места меньше занимает, поэтому обзор лучше.

[YA]

Так она на то и задачка, что бы это понять.
Что делает - понятно. Весь вопрос - как?

А классная задачка! Думал аж 20 минут, причем первые 10 чувствовал себя полным идиотом Но все же решил :super: - люблю себя похвалить
Chs
А придумал ее ты?
А еще есть?

[Chs]

А придумал ее ты?
А еще есть?

Нет, не я. Я ее увидел - кто-то кинул на форуме.
Если у кого есть интересные - присылайте.

[Green Kakadu]

Что делает - понятно. Весь вопрос - как? )

Я обползался по таблице кодов ANSI (это типа подсказка прости Chs) пока сам этот путь Perl не прошел и не вывел "Hello, wolrd!" на бумажке ))

Для тех кто ищет всякие перловые извраты: посмотрите тут http://perlmonks.org/index.pl?node=Obfuscated%20Code

Вот например первый попавшийся
make me smile

Код: [Выделить]


#!/usr/bin/perl -w

             seek(DATA,0,0)
          ;@;=;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;;__DATA__!



[NeoNox]

Вот например первый попавшийся

У них еще ежегодно конкурс на самое необычное оформление кода происходит.

[Green Kakadu]

У них еще ежегодно конкурс на самое необычное оформление кода происходит

ну в данном примере  не только в оформлении дело.
На PerlJoгrnal есть конкурс- что-то вроде "напиши на perl игру размером в nnn байт"

[Maxaleni]

Да блин не по моим мозгам такая задачка. Я даже не понял что там нужно сделать. Точно садо-мазо

[YA]

даже не понял что там нужно сделать

всего-лишь понять, как это работает

[rav3n]

насклолько я заметил, фак - перевод официального perlmanual\'a
только по-моему частичный. потому что дока офиц. охеренная.
поэтому я его читать не буду.

[Chs]

насклолько я заметил, фак - перевод официального perlmanual\'a

Не правильно заметил.