Redirect in Perl
Scritto da Jacopo Nuzzi
(http://www.jacoz.net)
il 17 maggio 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:
CODICE
#!/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):
CODICE
<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 ;)