comprobar la sintaxis de un fichero

Raul21 · #1 (**permalink**) 19/09/2008, 04:54

Hola buenos dias:

Tengo un fichero que tiene la siguiente forma:

03401-11-064 AXA WINTERTHUR 9374669J997
0803-05-096 AXA WINTERTHUR 9631548000
02013-11-080 AXA WINTERTHUR 95404458500
0356-00-004 AXA WINTERTHUR 91178084510
01214-07-064 MINISTERIO DE JUSTICIA 91873904544
028-09-096 MINISTERIO DE JUSTICIA 9139094920
02456-03-064 MINISTERIO DE JUSTICIA 91459651670
04626-13-096 MINISTERIO DE JUSTICIA 91763307090
02566-11-096 MINISTERIO DE JUSTICIA 91156026300
01226-03-000 MINISTERIO DE JUSTICIA 913459025

CAda uno de los campos esta separado por un tabulador.

Y lo que quiero es en primer lugar leer el fichero y comprobar que no existe ninguna linea vacia en el fichero.
2) Que existen tres campos separados por tabulador.

He hecho lo siguiente pero no sale, además no se si las comprobaciones las hago bien:

open(FIC,"clientesPrimarios");

$nb_line=0;

while ($line=<FIC>){
$nb_line++;
chop ($line);
if($line=~/^#/){next;}

#Se comprueba que no hay ninguna linea vacia
if($line=~/ /){
close(FIC);
}

@fields=split(/\t/,$line);

$campo1=$fields[0];
#Compruebo si el campo 1 es vacio o no
if($campo1=~/ /){
close(FIC);
# print FIC_LOG "SINTAXIS DE FICHERO INCORRECTA \n";

}
$campo2=$fields[1];
print "$campo2 \n";
if($campo2=~/ /){
close(FIC);
print FIC_LOG "SINTAXIS DE FICHERO INCORRECTA \n";

}
$campo3=$fields[2];
print "$campo3 \n";
if($campo3=~/ /){ close(FIC);
print FIC_LOG "SINTAXIS DE FICHERO INCORRECTA \n";

}
}

close(FIC);

Podrian ayudarme?
Gracias un saludo
~

monoswim · #2 (**permalink**) 19/09/2008, 06:24

La lógica del programa está bien planteada...ahora tengo algunas dudas

if($line=~/^#/){next;} #que se supone que encuentra ^# ?

if($campo1=~/ /){ #ahí tienes un espacio entre las barras, dará positivo solo si la línea tiene un espacio en blanco

Espero que te sirva

Saludos

Raul21 · #3 (**permalink**) 19/09/2008, 06:52

Creo que ya lo tengo.

Gracias por todo.
Un saludo

nivica · #4 (**permalink**) 04/11/2008, 09:21

hola Raul21 oye mira yo estoy haciendo algo parecido a lo q tu histe no se si podras ayudar lo q necesito es como leer varios archivos q estan en cierto directorios e imprimirlo, lo q pasa q ya lo hice con uno solo y si sale pero necesito leer varios al mismo tiempo y q solo me impima las dos primeras lineas.

ok t lo agradesco de ante mano.

monoswim · #5 (**permalink**) 05/11/2008, 05:30

colocá el código fuente please, sino es imposible saber donde esté el problema...abres el directorio y procesas cada archivo en un bucle ?

nivica · #6 (**permalink**) 07/11/2008, 10:17

este es mi codigo pero en la parte donde mando a llamar al archivo necesito mandar a llmar o otros y imprimr de cada uni de elllo sus 2 primerias lineas

use strict;
use File::Find;
use CGI qw(:standard);

print "<HTML><BODY> \n";

my $dir = 'C:/directorios/tmp';

find(\&imprimir_archivo, $dir);

sub imprimir_archivo{
my $elemento = $_;

print "$elemento\n" ;

open(FH, 'C:/directorios/tmp/mom.edifasf.r4x.200810311028');
my @linea = (<FH>);
print "$linea[0]";
print "TIEMPO DE ACTUALIZACION: $linea[1]\n";

my ($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isds t,@meses,@dias,$fecha);
($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isds t) = localtime (time);
@meses = ('01','02','03','04','05','06','07','08','09','10' ,'11','12');
$ano += 1900;
$fecha="$ano$meses[$mon]$mdia\n";
$hora="$hora$min$sec\n";
print ("FECHA $fecha HORA $hora\n");

}