• Publicidad

Coger campos separados por tabulación desde un TXT

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Coger campos separados por tabulación desde un TXT

Notapor coltx » 2015-11-06 13:50 @618

Amigos, tengo un archivo TXT desde el cual debo tomar los campos para luego armar otro archivo txt separados igualmente por tabulación.

Si bien he realizado la captura de otros archivos separados por ';' o '"' o '|' o lo que sea... pero por tabulación no sé cómo hacerlo. Favor, su ayuda.

El archivo es de esta forma:
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Campo1  Campo2  Campo3  Campo4  Campo5  etc…
Campo1  Campo2  Campo3  Campo4  Campo5  etc…
Campo1  Campo2  Campo3  Campo4  Campo5  etc…
Campo1  Campo2  Campo3  Campo4  Campo5  etc…
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Este script lo tengo para tomar un archivo separado por '|'. ¿Cómo sería con tabulación?

#!/usr/bin/perl
open (FILE, @ARGV[0]) || die "No pude abrir el archivo @ARGV[0]\n";

foreach $a (<FILE>)
{
@datos=split(/\|/,$a);
$Nombre=@datos[0];

}

Desde ya, gracias por su ayuda.
coltx
Perlero nuevo
Perlero nuevo
 
Mensajes: 79
Registrado: 2011-09-16 08:01 @376

Publicidad

Re: Coger campos separados por tabulación desde un TXT

Notapor coltx » 2015-11-06 14:33 @648

Me respondo solo :D :D :D :D :D

@datos = split(/\ /,$a);


Gracias, de todas maneras.
coltx
Perlero nuevo
Perlero nuevo
 
Mensajes: 79
Registrado: 2011-09-16 08:01 @376

Re: Coger campos separados por tabulación desde un TXT

Notapor explorer » 2015-11-06 15:03 @669

Mejor así:

@datos = split /\t/, $a;
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14476
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados

cron