enlaces en perl

Autor Christian Gustavo Riva http://cgrsoftware.com

Estas 3 lineas de codigo (sin contar lo que ocupen los URL cargados) te demuestran como puedes hacer un selector aleatorio de enlaces.
Para implementarlo deberas generar el archivo link.pl con el codigo listado, copiarlo a tu FTP y asignarle los permisos correspondientes de ejecucion, y luego simplemente genera un enlace en tus paginas apuntando al mismo:

<a href="/ruta_del_script/link.pl">Enviame Donde Quieras!</a>

Recuerda que el codigo es para uso libre y su finalidad es introducirte en los conceptos que trata y animarte a que experimentes por tu cuenta.

.
LINK.PL
###################################
# (C) 2001 Christian Gustavo Riva #
# http://www.cgrsoftware.com #
###################################
#!/usr/bin/perl
## Requerido para servidores Unix/Linux unicamente.

## A continuacion crearemos una variable denominada @url
## en la cual cargaremos las direcciones web a utilizar.
## Fijate que la variable comienza con un arroba (@) por lo
## que su tipo de datos es una matriz unidimensional
## (un List en Perl).

@url =
(
"http://www.direccion_uno.com",
"http://www.direccion_dos.com",
"http://www.direccion_tres.com",
"http://www.direccion_cuatro.com"
);

## Finalmente enviamos al cliente el comando Location junto
## a una direccion elegida al azar. Esto hara que el usuario sea
## derivado al sitio seleccionado.

print "Location: ".$url[rand @url]."\n\n";

## Lo que hicimos tan solo fue tomandar un item de la variable
## $url[ .. ] pero indicando que ese item sea elegido entre 0
## y el total-1 de items contenidos en ella: rand @url
## Si preguntas por el semillero, es invocado automaticamente
## por la funcion rand.