On Jun 14, 11:17 am, [EMAIL PROTECTED] (Chas Owens) wrote:
> Do you mean like this?
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use XML::Simple;
>
> my $xml = XMLin(join "", <DATA>);
>
> for my $rec (@{$xml->{RejectRecord}}) {
> printf qq(customer %-9.9s had error %d "%s"\n),
> $rec->{Customer_New}{Code},
> $rec->{Code},
> $rec->{Reason}}
>Exactly! Thanks Again. Ray -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
