i posle kazu moj perl kod necitak...

[Ilija Studen]

Originalno napisao ivanhoe

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 )

[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]

PHP kôd:

/*
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/la...-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...