99 бутылок пива на perl (жуткий бойан)

[edoc_modnar]

Perl не люблю, но мимо такого пройти не мог.

Код: Выделить всё

    ''=~(        '(?{'        .('`'        |'%')        .('['        ^'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '\\$'
    .'=='        .('['        ^'+')        .('`'        |'/')        .('['
    ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
    .';-'        .'-'.        '\\$'        .'=;'        .('['        ^'(')
    .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
   .'_\\{'      .'(\\$'      .';=('.      '\\$=|'      ."\|".(      '`'^'.'
  ).(('`')|    '/').').'    .'\\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
 ).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\\".\\"'.(  '['^('(')).
 '\\"'.('['^  '#').'!!--'  .'\\$=.\\"'  .('{'^'[').  ('`'|'/').(  '`'|"\&").(
 '{'^"\[").(  '`'|"\"").(  '`'|"\%").(  '`'|"\%").(  '['^(')')).  '\\").\\"'.
 ('{'^'[').(  '`'|"\/").(  '`'|"\.").(  '{'^"\[").(  '['^"\/").(  '`'|"\(").(
 '`'|"\%").(  '{'^"\[").(  '['^"\,").(  '`'|"\!").(  '`'|"\,").(  '`'|(',')).
 '\\"\\}'.+(  '['^"\+").(  '['^"\)").(  '`'|"\)").(  '`'|"\.").(  '['^('/')).
 '+_,\\",'.(  '{'^('[')).  ('\\$;!').(  '!'^"\+").(  '{'^"\/").(  '`'|"\!").(
 '`'|"\+").(  '`'|"\%").(  '{'^"\[").(  '`'|"\/").(  '`'|"\.").(  '`'|"\%").(
 '{'^"\[").(  '`'|"\$").(  '`'|"\/").(  '['^"\,").(  '`'|('.')).  ','.(('{')^
 '[').("\["^  '+').("\`"|  '!').("\["^  '(').("\["^  '(').("\{"^  '[').("\`"|
 ')').("\["^  '/').("\{"^  '[').("\`"|  '!').("\["^  ')').("\`"|  '/').("\["^
 '.').("\`"|  '.').("\`"|  '$')."\,".(  '!'^('+')).  '\\",_,\\"'  .'!'.("\!"^
 '+').("\!"^  '+').'\\"'.  ('['^',').(  '`'|"\(").(  '`'|"\)").(  '`'|"\,").(
 '`'|('%')).  '++\\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';$/='`';

http://search.cpan.org/dist/Acme-EyeDrops/...cme/EyeDrops.pm

[Shura]

!!! оно работает!

[serzh-z]

Бугага...

[nerezus]

фу, какая гадость =\

[_Gleb_]

И что, действительно работает? Что выдаёт? Так ведь и женшин голий можна будит нарисовать, да?

[Liksys]

зачот!!!

[polachok]

http://www.es.ioccc.org/years.html#2004
тута много всего

[Skladnoy]

Умереть и не жить... Это что же надо в пиво добавлять, чтобы из скобочек и кавычек спихотворение сделать.

[dm_f]

сколько смотрю на примеры на perl - никак не могу свыкнуться с мыслью, что это ещё и работает....

[Skladnoy]

Да, перл очень странный язык, такой мог создать только лингвист: на нем можно писать песни, материться, рисовать голых баб и бутылки, и кроме того писать программы которые работают. Последнее меня удивляет больше всего

[eduard_pustobaev]

И что, действительно работает? Что выдаёт?

Код: Выделить всё

................................
.......
4 bottles of beer on the wall, 4 bottles of beer!
Take one down, pass it around,
3 bottles of beer on the wall!

3 bottles of beer on the wall, 3 bottles of beer!
Take one down, pass it around,
2 bottles of beer on the wall!

2 bottles of beer on the wall, 2 bottles of beer!
Take one down, pass it around,
1 bottle of beer on the wall!

1 bottle of beer on the wall, 1 bottle of beer!
Take one down, pass it around,
No bottles of beer on the wall!

Харош песня...

[WarlorD]

/me ф шоке

[diesel]

пару часов смотрел сколько какой скрипт верблюдов занимает :-)) прикольная штука

[AnDoR]

классный прикол

[glist]

fine!
one drink please