Redirect in Perl

[jan267]

Ecco uno script fatto da me in perl utilizzabile su windows per la redirect:

#!/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

 

[lukeonweb]

carino hai provato a farne un contaclick?

 

[jan267]

uhm... boh... ci si potrebbe tentare... ma dubito che su win vada.. Perl e` per *nix.

Bye

 

[lukeonweb]

Jacopo ma tu a che livello conosci Perl e Linux/Unix?

Fammi sapere...

 

[jan267]

Uhm...

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