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

[Luis Medrano Zaldivar]

cuando pones my $variable o my @variable o my %variable es una forma de declarla de maner local. Aunque la uses en todo el script.


> -----Mensaje Original-----
> Desde:  RenÃ? Morales D. [mailto:yo@renemorales.cl]
> Enviado: Jueves 14 de Noviembre de 2002 04:52 PM
> Para: perl@tlali.iztacala.unam.mx
> Tema: [Perl] Re: Perl digest, Vol 1 #259 - 1 msg
> 
> >Message: 1
> >From: "Luis Medrano Zaldivar" <aldus@todito.com>
> >To: =?iso-8859-1?Q?=A0ayuda@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 perl
> >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
> 
> 
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
> 

___________________________________________________
Todito Card, internet fácil y sin compromisos.
Todito Ilimitado, internet rápido, seguro y económico.