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
