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.
