i posle kazu moj perl kod necitak...

[ivanhoe]

http://www.99-bottles-of-beer.net/language-perl-737.html

ovo sto izgleda kao ascii art pivskih flasa je zapravo perl kod KOJI RADI :p (morao sam da probam, nisam verovao).. doduse generisan je pomocu skripte ne rucno, ali ipak...

Tako da, PHP programeri samo da znate, Zend encoderi i slicne gluposti su for sissies, pravi jezici to imaju vec ugradjeno u sintaxu :D :D :D

[Petar Marić]

I pitty the fool who has to debug that guys code :rolleyes:

[bluesman]

Aj' počasti nas sa jeftinijim ulaznicama... šta radi ovaj kod?

[nixa]

perl ti je jedan od programskih jezika koji nakon kriptovanja izgleda isto ko i pre :)

[Petar Marić]

Generiše tekst ove pesmice (http://www.99-bottles-of-beer.net/lyrics.html).

@nixa: IMHCO Perl kod postaje čitljiviji nakon ovakve "enkripcije" ;)
A ako želiš da još dobiješ na čitljivosti propusti ga kroz md5() ili sha1() funkciju :D

[bojan_bozovic]

Iz sorsa se lepo vidi sta radi :D

[nixa]

bolje [hard irony] :) posto je ironija mala reč

[Milos Vukotic]

A pravljenje Brain****-a je skolski primjer izmisljanja tople vode :)

[dinke]

A, ima toga kol'ko hoces :)

http://www.thinkgeek.com/tshirts/coder/321a/detail/stuff/docs/perl-camel-source.shtml

Ovde mozes cak i da kupis majicu sa tim kodom :)

ne kazu dzabe za perl da je write only jezik :)

[ivanhoe]

da covek je napravio perl modul koji pretvara bilo koji komad normalnog perl koda u slikicu (na osnovu zadate ascii slike), a cela fora je zasnovana na tome da je moguce ubaciti perl kod unutar regular expressiona, sto je korisno kad se prave parseri islicne stvari, ali.... malko je necitko :)

[Ilija Studen]

ali.... malko je necitko :)

Odakle ti taj zaključak?

[zextra]

Pa, verovatno razlog lezi u tome sto se perl uglavnom upotrebljava za one-time poslove, ili gde treba napisati skriptu koja ce raditi nesto, bez potrebe za modifikacijama. Code reuse nije bas najpopularniji u tim krugovima ;)

Naravno, i perl kod moze biti lepo i citko pisan, a posle odrzavan.. Isto kao sto i php kod moze da izgleda katastrofalno (mada nikad kao perl :D)

[ivanhoe]

eh, ali zato sam ja za domaci na faxu napisao top-down parser za neku java-alike sintaxu na jednoj i po A4 strani za jedno poslepodne, a ljudi su dolazili sa listinzima java koda od po 30-40 strana...

ma fora je samo da ti se mozak navikne na odredjenu sintaxu i onda prestane da ti izgleda neorganizovano, you don't see the matrix anymore...:) ja uzeo da ucim python i sve mi nekako fale {} i tacka-zarez, nikako da se naviknem...

[artur_dent]

/*
This script generates a series of HTML tables with cells in different colours. It is an utterly
useless way to generate images on-the-fly.

It shows how comfortable PHP can be compared to raw HTML. This script is 5KB long compared to over
14MB (!) of HTML output.

If you like this script, I would be most grateful if you could visit
http://p2p.info.pl/eng/index.php and click a Google ad ;)
*/

$letter["a"]=array(array(0,1,1,1,0),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,1),
array(1,0,0,0,1));
$letter["b"]=array(array(1,1,1,1,0),
array(1,0,0,0,1),
array(1,1,1,1,0),
array(1,0,0,0,1),
array(1,1,1,1,0));
$letter["d"]=array(array(1,1,1,1,0),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,0));
$letter["e"]=array(array(1,1,1,1,1),
array(1,0,0,0,0),
array(1,1,1,1,0),
array(1,0,0,0,0),
array(1,1,1,1,1));
$letter["f"]=array(array(1,1,1,1,1),
array(1,0,0,0,0),
array(1,1,1,1,0),
array(1,0,0,0,0),
array(1,0,0,0,0));
$letter["g"]=array(array(0,1,1,1,1),
array(1,0,0,0,0),
array(1,0,1,1,1),
array(1,0,0,0,1),
array(0,1,1,1,0));
$letter["h"]=array(array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,1),
array(1,0,0,0,1),
array(1,0,0,0,1));
$letter["i"]=array(array(0,1,1,1,0),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,1,1,1,0));
$letter["k"]=array(array(1,0,0,0,1),
array(1,0,0,1,0),
array(1,1,1,0,0),
array(1,0,0,1,0),
array(1,0,0,0,1));
$letter["l"]=array(array(1,0,0,0,0),
array(1,0,0,0,0),
array(1,0,0,0,0),
array(1,0,0,0,0),
array(1,1,1,1,1));
$letter["m"]=array(array(1,0,0,0,1),
array(1,1,0,1,1),
array(1,0,1,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1));
$letter["n"]=array(array(1,0,0,0,1),
array(1,1,0,0,1),
array(1,0,1,0,1),
array(1,0,0,1,1),
array(1,0,0,0,1));
$letter["o"]=array(array(0,1,1,1,0),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(0,1,1,1,0));
$letter["p"]=array(array(1,1,1,1,0),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,0),
array(1,0,0,0,0));
$letter["r"]=array(array(1,1,1,1,0),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,0),
array(1,0,0,0,1));
$letter["s"]=array(array(0,1,1,1,1),
array(1,0,0,0,0),
array(0,1,1,1,0),
array(0,0,0,0,1),
array(1,1,1,1,0));
$letter["t"]=array(array(1,1,1,1,1),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0));
$letter["u"]=array(array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(0,1,1,1,0));
$letter["w"]=array(array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,1,0,1),
array(1,1,0,1,1),
array(1,0,0,0,1));
$letter["y"]=array(array(1,0,0,0,1),
array(0,1,0,1,0),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0));
$letter["0"]=array(array(0,0,1,0,0),
array(0,1,0,1,0),
array(0,1,0,1,0),
array(0,1,0,1,0),
array(0,0,1,0,0));
$letter["1"]=array(array(0,0,1,0,0),
array(0,1,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0),
array(0,0,1,0,0));
$letter["2"]=array(array(0,1,1,1,0),
array(1,0,0,1,1),
array(0,0,1,0,0),
array(0,1,0,0,0),
array(1,1,1,1,1));
$letter["3"]=array(array(1,1,1,1,0),
array(0,0,0,0,1),
array(0,1,1,1,0),
array(0,0,0,0,1),
array(1,1,1,1,0));
$letter["4"]=array(array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,0,0,0,1),
array(1,1,1,1,1),
array(0,0,0,0,1));
$letter["5"]=array(array(1,1,1,1,1),
array(1,0,0,0,0),
array(1,1,1,1,0),
array(0,0,0,0,1),
array(1,1,1,1,0));
$letter["6"]=array(array(0,1,1,1,1),
array(1,0,0,0,0),
array(1,1,1,1,0),
array(1,0,0,0,1),
array(0,1,1,1,0));
$letter["7"]=array(array(1,1,1,1,1),
array(0,0,0,1,0),
array(0,0,1,0,0),
array(0,1,0,0,0),
array(1,0,0,0,0));
$letter["8"]=array(array(0,1,1,1,0),
array(1,0,0,0,1),
array(0,1,1,1,0),
array(1,0,0,0,1),
array(0,1,1,1,0));
$letter["9"]=array(array(0,1,1,1,0),
array(1,0,0,0,1),
array(0,1,1,1,1),
array(0,0,0,0,1),
array(0,1,1,1,0));
$letter[","]=array(array(0,0,0,0,0),
array(0,0,0,0,0),
array(0,0,0,0,0),
array(0,1,0,0,0),
array(1,0,0,0,0));
$letter["."]=array(array(0,0,0,0,0),
array(0,0,0,0,0),
array(0,0,0,0,0),
array(1,1,0,0,0),
array(1,1,0,0,0));

function one_line($what_in_it){
global $letter;
echo "<table cellspacing=\"0\">";
for ($y=0; $y<5; $y++){
echo "<tr>";
for ($i=0; $i<strlen($what_in_it); $i++){
for ($x=0; $x<5; $x++){
if ($letter[$what_in_it[$i]][$y][$x]==1)
$colour="#000000";
else
$colour="#ffffff";
echo "<td style=\"background-color:$colour\">";
echo "</td>";
}
echo "<td style=\"background-color:#ffffff\"></td>";
}
echo "</tr>";
}
echo "<tr><td></td></tr>";
echo "</table>";
}

for ($i=99; $i>0; $i--){
$i==1 ? $s="" : $s="s";
$i==1 ? $no="no more" : $no=$i-1;
one_line("$i bottle$s of beer on the wall, $i bottle$s of beer.");
one_line("take one down and pass it around, $no bottles of beer on the wall.");
one_line(" ");
}
one_line("no more bottles of beer on the wall, no more bottles of beer.");
one_line("go to the store and buy some more, 99 bottles of beer on the wall.");
?>

http://www.99-bottles-of-beer.net/language-php4-825.html

Pesmica od 14MB sjajno prosto sjajno...

[zextra]

Ej, sve je to sjajno... Ali meni i dalje ne ide u glavu kako ovo....
''=~('(?{'.('`'|'%').('['^'-').('`'|'!').('`'|',').'"'.'\\$'.'=='.('['^'+').('`'|'/').('['^'+').'||'.(';'&'=').(';'&'=').';-'.'-'.'\\$'.'=;'.('['^'(').('['^'.').('`'|'"').('!'^'+').'_\\{'.'(\\$'.';=('.'\\$=|'."\|".('`'^'.').(('`')|'/').').'.'\\"'.+('{'^'[').('`'|'"').('`'|'/').('['^'/').('['^'/').('`'|',').('`'|('%')).'\\".\\"'.('['^('(')).'\\"'.('['^'#').'!!--'.'\\$=.\\"'.('{'^'[').('`'|'/').('`'|"\&").('{'^"\[").('`'|"\"").('`'|"\%").('`'|"\%").('['^(')')).'\\").\\"'.('{'^'[').('`'|"\/").('`'|"\.").('{'^"\[").('['^"\/").('`'|"\(").('`'|"\%").('{'^"\[").('['^"\,").('`'|"\!").('`'|"\,").('`'|(',')).'\\"\\}'.+('['^"\+").('['^"\)").('`'|"\)").('`'|"\.").('['^('/')).'+_,\\",'.('{'^('[')).('\\$;!').('!'^"\+").('{'^"\/").('`'|"\!").('`'|"\+").('`'|"\%").('{'^"\[").('`'|"\/").('`'|"\.").('`'|"\%").('{'^"\[").('`'|"\$").('`'|"\/").('['^"\,").('`'|('.')).','.(('{')^'[').("\["^'+').("\`"|'!').("\["^'(').("\["^'(').("\{"^'[').("\`"|')').("\["^'/').("\{"^'[').("\`"|'!').("\["^')').("\`"|'/').("\["^'.').("\`"|'.').("\`"|'$')."\,".('!'^('+')).'\\",_,\\"'.'!'.("\!"^'+').("\!"^'+').'\\"'.('['^',').('`'|"\(").('`'|"\)").('`'|"\,").('`'|('%')).'++\\$="})');$:=('.')^'~';$~='@'|'(';$^=')'^'[';$/='`';
...moze da ispise BILO STA?!

[bojan_bozovic]

eh, ali zato sam ja za domaci na faxu napisao top-down parser za neku java-alike sintaxu na jednoj i po A4 strani za jedno poslepodne, a ljudi su dolazili sa listinzima java koda od po 30-40 strana...

Ali kad treba da se debaguje tudj kod voleo bi da imas 30-40 strana :)

[zextra]

ja bih pre voleo da imam neograniceno mnogo vremena...