Foro - Perl en Español

por **Redpunkpower** » 2012-05-09 08:55 @413

¿Se puede leer el nombre de un archivo y compararlo con las cabeceras escritas en él?

Te explico, tengo unos archivos XML y tengo que comprobar que sus cabeceras coinciden con el nombre. La idea que tengo es poner un <STDIN> para que yo escriba, por ejemplo, 1394 y que haga un análisis a las cabeceras y que me conteste si coincide pero no sé cómo coger el nombre del archivo para que me lo compare.

por **explorer** » 2012-05-09 10:45 @489

Pero si lo has dicho...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Ingrese el nombre del archivo a analizar: ";
my $archivo = <STDIN>;
chomp $archivo;
open my $FH, '<', $archivo  or  die "ERROR: No puedo abrir $archivo: $!\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Te recomiendo que leas más código Perl. Por estos foros hay docenas de ejemplos de lo que quieres hacer...

por **Redpunkpower** » 2012-05-23 06:12 @300

Pero yo lo que quiero es coger una subcadena del nombre que yo he escrito:archivo_xml_01122000.xml

Con una parte del documento xml:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<nombre>archivo</nombre>
<extenseión>xml</extensión>
<fecha>01122000</fecha>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como cada campo está separado por "_" había pensado en poner que el campo 1 me lo compare con el nombre el campo 2 con la extensión y el campo 3 con la fecha. Pero ¿cómo hago para separarlos campos?

En Unix se haría con el grep, ¿pero en Windows?

por **explorer** » 2012-05-23 07:09 @339

Redpunkpower escribiste:Como cada campo está separado por "_" había pensado en poner que el campo 1 me lo compare con el nombre el campo 2 con la extensión y el campo 3 con la fecha. Pero ¿cómo hago para separarlos campos?

¡Con split()!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$archivo='archivo_xml_01122000.xml';
my($nombre,$extension,$fecha)=split(/_/,$archivo);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Redpunkpower** » 2012-05-23 07:10 @340

¡ja,ja,ja! Ya lo había encontrado, pero gracias.

por **Redpunkpower** » 2012-05-24 06:47 @324

Una vez dividido el archivo al final hay un 1_2_3.*.xml
Podría poner para que diferencie los campos de "_" y de "."
si no
podría borrar el "*"

Foro - Perl en Español

Comparar nombre del archivo y cabeceras

Comparar nombre del archivo y cabeceras

Publicidad

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

Re: Comparar nombre del archivo y cabeceras

¿Quién está conectado?