help parsing xml string in perl

Question

I'm having trouble doing a match for this xml string in perl.

<?xml version="1.0" encoding="UTF-8"?><HttpRemoteException path="/proj/feed/abc" class="java.io.FileNotFoundException" message="/proj/feed/abc: No such file or directory."/>

I want to place a condition on FileNotFoundException like so:

code snippet:

my @lines = qx(@cmdargs);
foreach my $line (@lines) { print "$line"; }

if (my $line =~ m/(FileNotFoundException)/) {
     print "We have an ERROR: $line\n";
}

Error:

Use of uninitialized value in pattern match (m//) at ./tst.pl

Have you tried removing the "my"? It might be re-initializing your variable. — Rusty Fausak
– Rusty Fausak, Commented Sep 22, 2011 at 4:56
I did. I edited my question. I tried removing my as well and using use strict and use warnings — jdamae
– jdamae, Commented Sep 22, 2011 at 5:08
The following executes properly for me: use strict; use warnings; my $line = '<?xml version="1.0" encoding="UTF-8"?><HttpRemoteException path="/proj/feed/abc" class="java.io.FileNotFoundException" message="/proj/feed/abc: No such file or directory."/>'; if ($line =~ m/(FileNotFoundException)/) { print "We have an ERROR: $line\n"; } — Rusty Fausak
– Rusty Fausak, Commented Sep 22, 2011 at 5:18
thanks, works for me too. something else i need to troubleshoot then. — jdamae
– jdamae, Commented Sep 22, 2011 at 5:25
Yawn. Use an XML library to parse XML. Use an XML library to parse XML. Use an XML library to parse XML. Use an XML library to parse XML. Use an XML library to parse XML. Use an XML library to parse XML. There are several for Perl, I always use XML::LibXML. — reinierpost
– reinierpost, Commented Sep 22, 2011 at 13:13

ikegami · Accepted Answer · 2011-09-22 05:07:40Z

5

You never assign anything to the variable against which you match (since you create the variable right there inside the if condition), so it doesn't contain what you say it does.

Use use strict; use warnings;!!!

It would have given you a warning. Remove the my.

answered Sep 22, 2011 at 5:07

ikegami

391k17 gold badges291 silver badges554 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Toto · Accepted Answer · 2011-09-22 07:47:57Z

2

You should test $lineinside the foreach loop:

my @lines = qx(@cmdargs);
foreach my $line (@lines) {
    print "$line";
    if ($line =~ m/(FileNotFoundException)/) {
        print "We have an ERROR: $line\n";
    }
}

answered Sep 22, 2011 at 7:47

Toto

91.7k63 gold badges97 silver badges135 bronze badges

Collectives™ on Stack Overflow

help parsing xml string in perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related