Desearía hacerles una pregunta:
1-) Tengo un archivo del cual debo escoger solo ciertas líneas, cada línea queda dividida en cinco partes y yo trabajo solo con tres: $ip1, $ip3, $ip6, así que escribí
Using perl Syntax Highlighting
open (IN, "BRA065.txt");
open(BRA, ">bra.txt");
foreach $bra (($ip1,$ip2,$ip3,$ip4,$ip5,$ip6) = split(" ", $_, 6)){
@bras= grep(/w/,/area/,/spc/,$cmos);
write BRA
open(BRA, ">bra.txt");
foreach $bra (($ip1,$ip2,$ip3,$ip4,$ip5,$ip6) = split(" ", $_, 6)){
@bras= grep(/w/,/area/,/spc/,$cmos);
write BRA
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Uso la función grep para seleccionar las líneas que tienen cualquiera de las palabras spc, area o w para guardarlas en @bra pero él imprime la información contenida en $bra y no en @bra.
En realidad no sé cómo especificarle que imprima la información contenida en @bra
usando la función write (porque tengo un formato que respetar).
Muchas gracias de antemano a las personas que me puedan ayudar.
Hasta Luego.