Oops, otro fallo más:
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);
> if ($line_tmp[1] == $id){
> $encontrado = $$line_tmp[7]
aquí sería $line_tmp[7] (sin el doble $, ya que eso significa otra cosa)
> }
> if($encontrado){
> print $encontrado, "\n";
> }
> }
> }
>
> Gracias, qué fácil :-)))
>
Saludos.
diego
Diego Sevilla Ruiz -- http://ditec.um.es/~dsevilla/ -- [EMAIL PROTECTED]
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'$_="[EMAIL PROTECTED]&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))('[EMAIL PROTECTED]')
