[perl] novato con expresiones regulares

[Jose Antonio Galicia]

On Wed, 15 Nov 2000, aury wrote:

> open(LOG,"$archivo") or die "No se puede habrir el
> archivo $archivo\n";
> while($linea = <LOG>){
>    $size = ($linea =~ /size=\d+/);
>    print("la variable size tiene $size \n");
>   }
> close(LOG);

 1. Asumes que tooooodas las líneas contienen la cadena "size=\d+" cosa
   bastante alejada de la realidad.
 2. $size no recibe un valor "predecible" por llamarlo de alguna manera.

 Sale ejemplo en línea sin salsa para la mesa tres:

	cat /var/log/maillog | perl -e '
	  while (<>){
	    if (($size) = ($_ =~ /size=(\d+)/)){
	      print "$size\n"
	    }
	  }'

 Saludos,
 Toño.
---
 mailto: jcgalici@cbbanorte.com.mx

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