On Jul 22, 3:33 am, [EMAIL PROTECTED] (Dr.Ruud) wrote:
> "Mike Blezien" schreef:
>
> > my $article_number = $elt->first_child_text('article_number');
> > my $dist_number = $elt->first_child_text('distributor_number');
> > my $dist_name = $elt->first_child_text('distributor_name');
> > my $artist = $elt->first_child_text('artist');
> > my $ean_upc = $elt->first_child_text('ean_upc');
> > my $set_total = $elt->first_child_text('set_total');
>
> That looks awful. Isn't there some way with the module to do it cleaner?
>
> Or do it more like:
>
> my @text_tags = qw(article_number distributor_number etc);
> my %data;
>
> for my $tag (@text_tags) {
> $data{_text}{$tag} = $elt->first_child_text($tag);
> }
just a quick note, that first_child_text can also be written field,
which often
makes more sense in a data oriented context.
--
mirod
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
