On Sep 2, Bowen, Bruce said:
my $data = XMLin('data.xml', forcearray=>1);
for my $data (@{$data->{data}})
I'd have chosen a different name than 'data' again, but oh well.
{
foreach (qw(Field4))
{
print $data->{$_}->[0], "\n";
}
if ($data{"Field4"} eq "Column 4")
You mean $data->{Field4}, not $data{Field4}.
{
print "match = ", $data->{$_}->[0], "\n";
}
}
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
