Re: Duda de Perl->regexp

[Diego Sevilla Ruiz <dsevilla@ditec.um.es>]

Hola:

On Thu, 27 Feb 2003, Amaya wrote:

> Diego Sevilla Ruiz dijo:
> > $a="a|b|c"; 
> > @b = split(/\|/,$a); 
> > print $b[1];
> > 
> > (imprime "b")
> 
> O sea, algo así:
> 
> # Abro un archivo
> while (chomp($id = <FTAG>)){
> 	# Abro otro archivo
> 	while (chop($line = <FAUTH>)){
> 		$line_tmp = split(/\|/,$line);

Si, salvo que es @line_tmp en vez de $line_tmp

> 		if ($line_tmp[1] == $id){
> 		$encontrado  = $$line_tmp[7]
> 		}
> 		if($encontrado){
> 		       print $encontrado, "\n";
> 		}
> 	}
> }
> 
> Gracias, qué fácil :-)))
> 

	Saludos.
	diego

Diego Sevilla Ruiz -- http://ditec.um.es/~dsevilla/ -- dsevilla@um.es
Dep. Ingeniería y Tecnología de Computadores, Facultad de Informática
Univ.de Murcia,Campus Espinardo,30080 Murcia (SPAIN),Tel.+34968367571
lynx -dump ditec.um.es/~dsevilla/face |uncompface | ikon2xbm |display
PGP:  http://pgp.rediris.es:11371/pks/lookup?op=get&search=0xC9B964B7
perl -e'$_="\x4\@FLe\x2&B";for(/../g){print unpack("b*",$_),"\n"}'|tr 01 " #"
(lambda x,f=lambda x,f:x and x[-1]+f(x[:-1],f):f(x,f))('se.mu@allivesd')