1 2 3 4 5 6 7 8 9 10 11
my $twig2= XML::Twig->new( twig_handlers => { 'Parameter' => sub { my $attr_value = $_->{'att'}->{'value'} // ''; print $FhResult $attr_value . ", "; }, }, );
Guest Henriso wie es unter steht habe ich zwei code einmal für name und einmal für value
Code (perl): (dl )1 2 3 4 5 6 7 8 9 10 11my $twig2= XML::Twig->new( twig_handlers => { 'Parameter' => sub { my $attr_value = $_->{'att'}->{'value'} // ''; print $FhResult $attr_value . ", "; }, }, );
1 2 3 4 5 6 7 8 9 10 11
my $twig2= XML::Twig->new( twig_handlers => { 'Parameter' => sub { my $attr_name = $_->{'att'}->{'name'} // ''; my $attr_value = $_->{'att'}->{'value'} // ''; printf $FhResult "%s %s\n", $attr_name, $attr_value; }, }, );
1 2 3 4 5 6 7 8 9
#!/usr/bin/perl use strict; use warnings; my $name = 'toto, tata, titi, tete, tutu'; my $value = '34, 35, 30, 40, 23'; my @n = split /, /,$name; my @v = split /, /,$value; for (my $z = 0; $z < scalar @n; $z ++) { print "$n[$z] $v[$z]\n" }