Prawie sto butelek piwa

S_… a dokłdnie to --$sto, ale o tym kiedy indziej, a może nawet wkrótce. Poniżej jedna reprezentantka z tych dziewięćdziesięciu dziewięciu. Jak robi się takie cuda? W pewnym sensie się ich nie robi, bo robią to za nas inni a my tylko spijamy śnieżnobiałą czapę piwnej piany.

;($:)=‚.’^„\~”;($~)=„\@”|„\(„;$^=‚)’^(‚[‚);$/=

‚`’|‚.’;$,=

‚(‚^‚}’;$\=

‚`’|‚!’;$:=

‚)’^‚}’;$~=

‚*’|‚`’;$^=

‚+’^‚_’;$/=

‚&’|‚@’;$,=

‚[‚&‚~’;$\=

‚,’^‚|’;$:=

‚.’^‚~’;$~=

‚@’|‚(‚;$^=

‚)’^‚[‚;$/=

‚`’|‚.’;$,=

‚(‚^‚}’;#;#

Oto przepis na sukces.

Weź garść piwnych dropsów. Niech będą to te lepsze, co je Acme robi. Zamieszaj perłową łyżką. Ale nie ża bardżo, bo nicz nie żobaczysz. Wrzuć wszystko do kształtnej butelki i podawaj, gdy witasz się z gąską.

A w skrócie wygląda to tak:

  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Acme::EyeDrops qw(sightly get_eye_string hjoin_shapes);
  5. my $ninety_nine = <<’BURP’;
  6. $==pop||99;–$=;sub
  7. _{($;=($=||No).” bottle”.”s”x!!–$=.” of beer”).” on the wall”}
  8. print+_,”, $;!
  9. Take one down, pass it around,
  10. „,_,”!
  11.  
  12. „while++$=
  13. BURP
  14. chop($ninety_nine); $ninety_nine =~ s/\nprint/print/;
  15. print sightly( { Regex         => 1,
  16.                  Compact       => 1,
  17.                  Shape         => ‚bottle2′,
  18.                  } );
  19. # wersja dla prawdziwych piwnych smakoszy:
  20. print sightly( { Regex         => 1,
  21.                  Compact       => 1,
  22.                  ShapeString   => hjoin_shapes(2,
  23.                                   (get_eye_string(‚bottle2′))x6),
  24.                  SourceString  => $ninety_nine } );

Sponosrem dzisiejszego programu jest: 99 Bottles of Beer

 

__EDIT__

No to jeszcze polacam to:

  1.          $a=
  2.         „cpuu
  3.        \bmft p
  4.        \bg cff
  5.        \bs”;$b
  6.        =„po ui
  7.        \bf xbm
  8.       \bm”;$c=
  9.       Ypv ublf p
  10.      \bof epxo qb
  11.    \btt ju bspvoe”;
  12.   $a =~ s/\n//;$a =~
  13.   s/\s+/ /g; $b   =~
  14.   s/\n// ;  $b    =~
  15.   s/\s+/ /g;$c    =~
  16.   s/\n// ;  $c    =~
  17.   s/\s+/ /g;$a    =~
  18.   y/b-z/a-z/;$b   =~
  19.   tr/b-z/a-z/;$c  =~
  20.   tr/b-z/a-z/ ; for(
  21.   $d=100;$d>0;$d){
  22.   print„$d $a $b $d”
  23.   ;print” $a,\n$c, „
  24.   ;print($d-1);print
  25.   ” $a $b.\n;} $x =
  26.   „cjc”; $y=„dobbz”;
  27.   $z=„com”;print\n
  28.   ;print „- $x\@$y.”
  29.    ;print„$z \n\n;

 Żródło: Language Perl ::99 Bottles of Beer