DevProTalk

DevProTalk (http://www.devprotalk.com/index.php)
-   Opušteno (http://www.devprotalk.com/forumdisplay.php?f=16)
-   -   i posle kazu moj perl kod necitak... (http://www.devprotalk.com/showthread.php?t=680)

Ilija Studen 16. 02. 2006. 14:21

Citat:

Originalno napisao ivanhoe
ali.... malko je necitko :)

Odakle ti taj zaključak?

zextra 16. 02. 2006. 21:24

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 16. 02. 2006. 23:34

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 17. 02. 2006. 02:02

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==$s="" $s="s";
    
$i==$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 17. 02. 2006. 04:35

Ej, sve je to sjajno... Ali meni i dalje ne ide u glavu kako ovo....
Kôd:

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

bojan_bozovic 17. 02. 2006. 05:27

Citat:

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 17. 02. 2006. 14:15

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


Vreme je GMT +2. Trenutno vreme je 02:05.

Powered by vBulletin® Verzija 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright © DevProTalk. All Rights Reserved.

Mišljenja, saveti, izjave, ponude ili druge informacije ili sadržaji nastali na Sajtu su vlasništvo onoga ko ih je kreirao, a ne DevProTalk.com, tako da ne morate da se oslanjate na njih.
Autori poruka su jedini odgovorni za ovakve sadržaje. DevProTalk.com ne garantuje tačnost, kompletnost ili upotrebnu vrednost informacija, stavova, saveta ili datih izjava. Ne postoje uslovi pod kojima bi mi bili odgovorni za štetu ili gubitak koji je posledica bilo čijeg oslanjanja na nepouzdane informacije, ili bilo kakve informacije nastale kroz komunikaciju između registrovanih članova.
Web sajt može sadržavati linkove na druge web sajtove na Internetu ili neke druge sadržaje. Ne kontrolišemo niti podržavamo te druge web sajtove, niti smo pregledali bilo kakve sadržaje na takvim sajtovima. Mi nećemo biti odgovorni za legalnost, tačnost ili prikladnost bilo kog sadržaja, oglasa, proizvoda, usluga ili informacije lociranim na ili distribuiranih kroz druge web sajtove, niti za bilo kakvu štetu nastalu kao posledica takvih informacija. DevProTalk.com drži i čuva druga prava vlasništva na web sajtu. Web sajt sadrže materijale zaštićene copyright-om, zaštitne znakove i druge informacije o pravu vlasništva ili softver. Članovi mogu poslatu informacije zaštićene pravima vlasništva njihovih nosilaca i ona ostaju zaštićena bez obzira da li su oni koji prenose te informacije to naveli ili ne. Osim informacija koje su u javnom vlasništvu ili za koje dobijete dozvolu, nemate pravo da kopirate, modifikujete ili na bilo koji način menjate, objavljujete, prenosite, distribuirate, izvršavate, prikazujete ili prodajte bilo koju informaciju zaštićenu pravima vlasništva. Slanjem informacija ili sadržaja na bilo koji deo DevProTalk.com, Vi automatski dozvoljavate i predstavljate garanciju da imate pravo da dozvolite DevProTalk.com ili članovima DevProTalk.com bespovratnu, kontinualnu, neograničenu, globalnu dozvolu da koriste, kopiraju, izvršavaju, prikazuju i distribuiraju takve informacije i sadržaje i da iz takvih sadžaja koriste bilo koji deo u bilo koje svrhe, kao i pravo i dozvolu da koriste gore navedene sadržaje. Svi zaštitni znakovi (trademarks), logotipi, oznake usluga, firme ili imena proizvoda koji se pominju na ovom web sajtu su vlasništvo kojim raspolažu njihovi vlasnici.