Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Reading/Parsing an XML file using Perl

by manu_06 (Novice)
on Sep 17, 2010 at 00:45 UTC ( #860420=note: print w/ replies, xml ) Need Help??


in reply to Re: Reading/Parsing an XML file using Perl
in thread Reading/Parsing an XML file using Perl

Hi,

Thank you for the help. I was trying your suggestion but it is showing up syntax error near the end of the script "}"

#!/usr/local/bin/perl-w use strict; use warnings; use XML::Simple; my $path = 'C:\Documents and Settings\user\Desktop\output2\FITS\ IMD02 +5350802'; # add your path here for my $xfile (glob "$path/*.xml") { print "xfile=$xfile\n"; my $xml = XML::Simple->new(); my $file = $xml->XMLin($xfile) or die $!; if (($file->{identification}{'identity'}{'format'} eq 'JPEG File I +nterchange Format') && ($file->{filestatus}{'well-formed'}{'content'} eq 'true') && ($file->{ +filestatus}{'valid'}{'content'} eq 'true')) }

Error: syntax error at one.pl line 14, near ") }"


Comment on Re^2: Reading/Parsing an XML file using Perl
Download Code
Re^3: Reading/Parsing an XML file using Perl
by rowdog (Curate) on Sep 18, 2010 at 09:11 UTC

    You're missing at least an opening brace. You have

    ($file->{filestatus}{'well-formed'}{'content'} eq 'true') && ($file->{ +filestatus}{'valid'}{'content'} eq 'true')) }

    but you need something like

    ($file->{filestatus}{'well-formed'}{'content'} eq 'true') && ($file->{ +filestatus}{'valid'}{'content'} eq 'true')) { # do something useful }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://860420]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2014-12-25 10:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls