[Perl] Re: Perl digest, Vol 1 #259 - 1 msg

[RenÈ Morales D.]

>Message: 1
>From: "Luis Medrano Zaldivar" <aldus@todito.com>
>To: =?iso-8859-1?Q?=3DA0ayuda@linux.org.mx?=, linux@opensource.org.mx,
>        perl@tlali.iztacala.unam.mx
>Date: Wed, 13 Nov 2002 21:48:41 +0000
>Subject: [Perl] Servidor de web (APACHE)
>
>Lista,
>
>tengo un web server corriendo linux/apache. Necesito identificar de donde
>viene el trafico al server y depediendo de donde provenga necesito cargar
>una
>pagina diferente, alguien sabe si apache en convinacion con el modulo de pe=
rl
>o algo asi que se pueda usar para resolver mi bronca????
>
>Saludos,
>Luis
>
>

seguramente apache tendrá su app para resolver tu inquietud.
pero uso Mac y acceso ftp a un server.

en perl creo sería algo así de simple capturando
la variable de entorno $ENV{'REMOTE_ADDR'}

# si las personas que se conectarán tienen ip fija, mejor.
# ya que de lo contrario se te presentará el problema de
# como identificarlos. las malditas ip variables te van a molestar.
# deberías hacerte la pregunta el tráfico, ¿es en un solo país o viene de
afuera también?

$ip = '000.000.000.0';
$ip2 ='000.000.000.1';
$esta="esta.html";
$estaotra="estaotra.html";

if ($ENV{'REMOTE_ADDR'} == $ip) {
print "Location: $esta\n\n";
}elsif ($ENV{'REMOTE_ADDR'} == $ip2){
print "Location: $estaotra\n\n";
}else {
print "Ups!..., no se que mostrar. :( Adios";
}

en todo caso deberías haber sido un poco más específico en relación
a las ip. ¿de donde son? ¿hácia donde van? ¿etc?

Pregunta para el grupo:
he visto muchos scripts que definen la variable con un my $variable
¿por que?

salu2

#-----------------------------------------
René Morales Duarte
DiseñadorGráfico | ProgramadorWeb
Make it with McPerl