LINUX.ORG.RU

Объясните, пожалуйста, хеллоуворлд на перле

 ,


0

2

Объясните, пожалуйста, хеллоуворлд на перле из википедии:

not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split

хеллоуворлд на перле

Хелловорлд на Перле это perl -e 'print "Hello, World!\n";', а то, что ты написал — кулхацкирский экзерсис.

Virtuos86 ★★★★★ ()

Коль хеллоуворлд не способен понять ты.
Перл есть не для тебя, забудь.

anonymous ()
Ответ на: комментарий от Virtuos86

Хелловорлд на Перле это

однострочник же!

router ★★★★★ ()
Ответ на: комментарий от router

Что и все остальные: ловит потенциально нажористые треды в Development. Тем более, где перл, там и питон часто вспоминают, а тот уже профильный для меня ЯП.

Virtuos86 ★★★★★ ()

Так понятнее?

$ perl -MO=Deparse,-p,-C,-x3 | perltidy
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split
__END__
- syntax OK
(
    (
        (
            (
                (
                    (
                        (
                            ( not( exp( log( (srand) ) ) ) xor s// /x ) xor
s/ / length uc ord and print chr\nord for qw q join use sub tied q/
                        ) xor eval($_)
                    ) xor print(' ')
                ) xor int(
                    eval(
" cos and print chr ord\nfor qw y abs ne open tied hex exp\nref y "
                    )
                )
            ) xor scalar( srand( print(' ') ) )
        ) xor int(
            eval(
" sqrt cos\nand print chr ord for qw x printf\neach return local x "
            )
        )
    )
      or (
        print(' ')
        and (
            eval(
" undef or oct xor\ntime xor ref print chr int ord lc\nforeach qw y hex alarm chdir kill\nexec return y "
            ) gt sin( sort( split( ' ', $_, 0 ) ) )
        )
      )
);
anonymous ()

Если убрать всю шелуху с eval, xor/or/and чайнингом, кавычками
Получается:

print(chr(ord($_)) foreach('join', 'use', 'sub', 'tied');
print(' ');
print(chr(ord($_)) foreach('abs', 'ne', 'open', 'tied', 'hex', 'exp', 'ref');
print(' ');
print(chr(ord($_)) foreach('printf', 'each', 'return', 'local';$                   
print ' ');
print(chr(int(ord(lc($_))))) foreach('hex', 'alarm', 'chdir', 'kill', 'exec', 'return');

anonymous ()

Это не helloworld, а интернет-магазин

anonymous ()

Тред не читал, это «Патч Бармина»?

Dark_SavanT ★★★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.