senik148 has asked for the wisdom of the Perl Monks concerning the following question:
Hello, im having problems parsing this XML Document.
I parsed some other documents before but i cannot parse this one correctly.
I want to pull all the news at one run.
forexample the feed containts 5 news(noticias).
and also i want to pull the 5 foto(photo).
the elemts are: pie and fotogrande only.
pie= caption for photo fotogrande = photo
a loop is no problem as long as i get this elements into some sort of scalar variable.
this the current code i have:
here is the xml file:
http://www.fremontvirtualoffice.com/rmmame-dep.xml
i want to send them by SMTP using perl. i already have the smtp code working. at one run i want to parse all news. and one by one send them using Net::SMTP;
I know my code is sloppy.. i just started working on this..
there is more than one way to do it!
Thanx
I parsed some other documents before but i cannot parse this one correctly.
I want to pull all the news at one run.
forexample the feed containts 5 news(noticias).
and also i want to pull the 5 foto(photo).
the elemts are: pie and fotogrande only.
pie= caption for photo fotogrande = photo
a loop is no problem as long as i get this elements into some sort of scalar variable.
this the current code i have:
#!/usr/bin/perl -w use strict; use warnings; use XML::Simple; use LWP::Simple; # initialize object # get RSS data my $raw = get('http://www.fremontvirtualoffice.com/rmmame-dep.xml'); # create object my $xml = new XML::Simple; my $data = $xml->XMLin($raw); my @items = @{$data->{noticia}}; for my $hash ( @items ) { my $title = $hash->{titulo}; my $fulltext = $hash->{texto}; my $date = $hash->{fecha}; my $time = $hash->{hora}; print "TITLE: $title\n"; print "ARTICLE: $fulltext\n"; print "DATE: $date\n"; print "TIME: $time\n"; }
here is the xml file:
http://www.fremontvirtualoffice.com/rmmame-dep.xml
i want to send them by SMTP using perl. i already have the smtp code working. at one run i want to parse all news. and one by one send them using Net::SMTP;
I know my code is sloppy.. i just started working on this..
there is more than one way to do it!
Thanx
Back to
Seekers of Perl Wisdom