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

[Salvador Ortiz Garcia]

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