Estoy aprendiendo Perl y tratando de hacer un programa en Perl bastante sencillo, en el cual me lea los datos de un archivo de texto y una de las columnas me las guarde en otro archivo.
Este es mi archivo de texto
- Código: Seleccionar todo
Serge 20 Malboro 10.50
Fredo 15 Camel 10.50
Marc 10 Camel 10.50
Alain 10 Peter_Bleu 10.50
Agnes 20 Goldo_Leg 6.50
Isabelle 15 Royal_Ment 12.50
Pyr 0 ninguno 0
Thyll 10 Camel 10.50
y este es el código en Perl
Using perl Syntax Highlighting
open(AR,'prueba.txt')|| die "$!\n";
while(<AR>)
{
print AR $columna3; # aquí es donde no sé qué código para que me guardara en un archivo diferente solo la columna de la marca de cigarrillos.
}
while(<AR>)
{
print AR $columna3; # aquí es donde no sé qué código para que me guardara en un archivo diferente solo la columna de la marca de cigarrillos.
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El resultado sería en un archivo marca.txt que me guarde todos los datos de la columna 3 que es la de la marca de cigarrillos.
Alguien podría ayudarme.
Gracias
