Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...

my $t_type = XMLin('tt.xml',GroupTags => { 'seven' => 'select' });
%t_type = \$t_type;
  2. or download this
    ### lets test that returned structure
# yep its the same. must be a referrence problem?
print "dumping structure...\n";
print Dumper($t_type);
  3. or download this
    print "data...\n";

...
foreach my $item ( @{$t_type{b}{seven}} ) {  
    print "... $item->{'select'}\n";
}