Redirect in Perl
Scritto da Jacopo Nuzzi
(http://www.jacoz.net)
il 17 luglio 2006
Basta copiare il codice in un file e salvarlo <strong>.pl</strong> ed il gioco è fatto.
Per effettuare le redirect basta agire in questo modo (per esempio):
Come vedete è davvero molto facile.
L'unica attenzione da metterci è ricordarsi di sottrarre uno al numero del link: infatti come si è visto nell'esempio appena fatto il link alla directory è il numero DUE ma per la redirect è necessario mettere UNO.
Alla prossima ;)
Ciao a tutti,
in questo articolo vedremo come effettuare una semplice redirect tramite il potentissimo linguaggio Perl.
Lo script è davvero semplicissimo ecco il codice:
PERL
#!/usr/bin/perl # inserisci gli URL @links = ('http://www.jacoz.net','http://directory.jacoz.net','http://www.google.com'); # 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";
Basta copiare il codice in un file e salvarlo <strong>.pl</strong> ed il gioco è fatto.
Per effettuare le redirect basta agire in questo modo (per esempio):
HTML
<a href="redirect.pl?id=1">Visita la Directory di JacoZ.net (http://directory.jacoz.net) ed aggiungi gratuitamente il tuo sito.</a>
Come vedete è davvero molto facile.
L'unica attenzione da metterci è ricordarsi di sottrarre uno al numero del link: infatti come si è visto nell'esempio appena fatto il link alla directory è il numero DUE ma per la redirect è necessario mettere UNO.
Alla prossima ;)
