Re: Duda de Perl->regexp

[Amaya <amaya@debian.org>]

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);
		if ($line_tmp[1] == $id){
		$encontrado  = $$line_tmp[7]
		}
		if($encontrado){
		       print $encontrado, "\n";
		}
	}
}

Gracias, qué fácil :-)))

-- 
.''`.         Girl, you gotta change your crazy ways, you hear me?
: :' :                                        Crazy  by  Aerosmith      
`. `'        Proudly running Debian GNU/Linux (Sid + 2.4.20 + Ext3)
  `-        www.amayita.com  www.malapecora.com  www.chicasduras.com