[Perl] RE:RE: saludos y xml::simple

[Sergi -]

Muchas gracias Toño

Lo he resuelto haciendo lo siguiente:

use XML::Simple ;

# compruebo que se pasaron parametros
if ($#ARGV !=0 )
{
     print "uso: ./$0 [XML] \n";
     exit 1;
}

my $file1 = $ARGV[0];
my $config = XMLin("$file1");

así ya puedo acceder a los valores de hash sin
problemas.
lo ejecuto como tu muy bien indicas de este modo
./script.pl fichero.xml
Verlo de otra manera es muy interesante.
Has sido muy amable.
1000 GRACIAS.

 --- Antonio Galindo Castro  escribió:

> > use XML::Simple;
> >
> > my $fichero = <>;
> > my $config = XMLin ($fichero);
> >
> > print $fichero->{unadelasetiquetas};
> 
> Hola, de entrada no entiendo por que quieres hacer
> las cosas desde dos
> programas distintos, pero bueno...
> 
> Prueba así:
> xml.pl
> ---------------------------------
> #!/usr/local/bin/perl
> use strict;
> use warnings;
> 
> use XML::Simple;
> 
> my $arch = shift;
> my $ref  = XMLin ($arch);
> 
> foreach my $etiqueta (keys %{$ref}) {
>   print "$etiqueta $ref->{$etiqueta}\n";
> }
> -------------------------------------------
> 
> Como puedes ver que lo que se utiliza para hacer el
> print es la
> referencia a la hash con los datos de archivo xml
> ($ref) y no el
> argumento  ($arch) donde debería estar el nombre del
> archivo.
> Que tan compleja va a resultar ser tu estructura,
> bueno pues eso de
> depende directamente del archivo que le pases.  
> Entonces de una vez
> conoces la estructura de tus archivos y llamas a las
> partes que
> nesecitas, o lo parseas para buscar lo que quieres. 
> Lee la
> documentación:
>
http://search.cpan.org/~grantm/XML-Simple-2.14/lib/XML/Simple.pm
> 
> Para probarlo use este sencillo archivo xml:
> prueba.xml
> ------------------------------------
> <opt>
>       <username>testuser</username>
>       <password>frodo</password>
> </opt>
> -------------------------------------
> 
> Y lo corrí así:
> # ./xml.pl prueba.xml
> 
> Bueno, espero esto te sea útil.
> 
> Toño "FunkyM0nk3y"
> 
> _______________________________________________
> Perl mailing list
> Perl en tlali.iztacala.unam.mx
>
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
> 



		
______________________________________________ 
Renovamos el Correo Yahoo! 
Nuevos servicios, más seguridad 
http://correo.yahoo.es