Redirect in Perl

jan267

Utente Attivo
6 Mar 2003
1.956
2
38
32
Milano
twitter.com
Ecco uno script fatto da me in perl utilizzabile su windows per la redirect:
Codice:
#!/usr/bin/perl 

# inserisci gli URL
@links = ('http://www.chatter.it','http://www.lu-na.org'); 

# si usa il modulo cgi.pm 
use CGI qw(:standard); 
$id = param("ID"); 

# la redirect
print "Content-type:text/html\n"; 
print "Location:$links[$id]\n\n";
Il collegamento ipertestuale sarà: nomefile.pl?ID=
Ecco alcuni esempi:
http://www.lu-na.org/cgi-bin/redir.pl?ID=0
http://www.lu-na.org/cgi-bin/redir.pl?ID=1

Bye :)
 
Ultima modifica:

jan267

Utente Attivo
6 Mar 2003
1.956
2
38
32
Milano
twitter.com
Uhm...

Riciao, scusa se rispondo ora ma sono stato in ospedale praticamente tutto il giorno :p
Beh se la scala e` da 1 a 10... io sono a un buon -10 ! :)
So pochissimo.. :p mi spiace.. :(
CiauuZ