[es] - Pitanjce

Sole_boy

Član broj: 2486
Poruke: 58
*.ptt.yu

Profil

^{06.05.2003. u 22:25}

Postovanje,

imam sledeci problem: npr. ako imam ovakvu listu u fajlu (bla.dat)

1::SIMA::www.sima.com
2::PERA::www.pera.com

...

e sada sta meni treba, ja napisem lepo parser za ovo, koji izgleda ovako:

Code:

open(BLAH, "bla.dat");
@lines = <BLAH>;

foreach(@lines) {

@lista = split /::/, $_;
print "$lista[0] - $lista[1] - $lista[2]\n";
}

i on ispise na ekranu listu, lepo isparsiranu i to je oK, ali sta ako hocu npr ovako nesto,
posle gornjeg coda da nastavim:

Code:

print "VAS IZBOR:";
chomp($izbor = <STDIN>);

sada meni treba ako korisnik ukuca 1,2 ili tamo neki broj (n) da se automatski pomocu nekog browsera (nije vazno kojeg)
otvori ta strana, npr ako je 1 onda otvori www.sima.com, ako je 2 onda www.pera.com itd...

???
HVALA U NAPRED!

^{06.05.2003. u 22:25}

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.verat.net

Sajt: www.freesex.co.yu

Profil

Re: Pitanjce

^{07.05.2003. u 03:41}

Code:
# Get the form variables

    if ($ENV{'REQUEST_METHOD'} eq 'GET') {

            $buffer = $ENV{'QUERY_STRING'};

    }

    else {

            read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

    }

# Break em up into a format the script can read

    @pairs = split(/&/, $buffer);

    foreach $pair (@pairs) {

            ($name, $value) = split(/=/, $pair);

            $value =~ tr/+/ /;

            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

            $FORM{$name} = $value;

    }

E to ti je copy paste ... ja tako radim za sve skripte ...
posle toga ti sledi da u foreach stavis jedan :

if ($lista[0] eq $form(1){
#ovde ide print
}

U print pojam nemam sta da stavis mada mislimda bi radilo po principu
da ispises kao html stranu ali da stavis u meta tag refresh=o ili 1
i da postavis da ucita $form[3] tj koju stranu ....

^{07.05.2003. u 03:41}