0 Пользователей и 1 Гость просматривают эту тему.
spongebob:Прочитал в первую очередь!
#!/usr/bin/perl -wuse XML::Simple; my $ref = XMLin(\'1.xml\'); my $item=$ref->{item}; foreach (keys %$item) { my $id=$_; my $index=$item->{$_}{\'index\'}; my $value=$item->{$_}{\'content\'}; print "id=$id index=$index value=$value\\n"; }