[perl] =?iso-8859-1?Q?RE:_=5Bperl=5D_RE:_problema_=BFtiene_solucion=3F_PENDIENTE?=

[Humberto Hernandez Torres]

Y atendiendo al lema de Perl  "Siempre hay mas de una manera de hacerlo".
Que tal?

$ip_cliente = $ENV{HTTP_CLIENT_IP} || $ENV{REMOTE_ADDR};

-----Mensaje original-----
De:	owner-perl@tlali.iztacala.unam.mx
[mailto:owner-perl@tlali.iztacala.unam.mx] En nombre de Salvador Ortiz
Garcia
Enviado el:	Jueves, 13 de Julio de 2000 10:25 a.m.
Para:	perl@tlali.iztacala.unam.mx
Asunto:	Re: [perl] RE: problema ¿tiene solucion? PENDIENTE

On Thu, 13 Jul 2000, mapelo wrote:

> Bueno, la solución ya me la disteis y repoduzco aquí el trozo de script
que
> me localiza adecuandamente la IP tambien desde los que se conectan con
este
> macroISP:
>
> if ($ENV{HTTP_CLIENT_IP}) {$ip_cliente=$ENV{HTTP_CLIENT_IP};} else
> {$ip_cliente=$ENV{REMOTE_ADDR};}

El código anterior es un excelente ejemplo para el uso del operador ?:,
y queda mucho más perliano:

$ip_cliente = $ENV{HTTP_CLIENT_IP}
              ? $ENV{HTTP_CLIENT_IP}
	      : $ENV{REMOTE_ADDR};

Saludos

Salvador Ortiz


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl