Как может я использовать XML Perl:: LibXML для извлечения атрибута в теге?
Я немного опаздываю стороне, но голосование за встроенную связанную хеш-функцию dbmopen() - она помогла мне много. Это не точно база данных, но если необходимо сохранить данные к диску, это устраняет много проблем и Просто Работ. Это помогло мне начать, когда у меня не было базы данных, не понял Storable.pm, но я знал, что хотел выйти за рамки чтения и записи в текстовые файлы.
4 ответа
Используйте выражения XPath
use strict;
use warnings;
use XML::LibXML;
use Data::Dumper;
my $doc = XML::LibXML->new->parse_string(q{
<PARENT>
<TAG string1="asdf" string2="asdfd">
</TAG>
</PARENT>
});
my $xpath = '/PARENT/TAG/@string2';
# getting value of attribute:
print Dumper $doc->findvalue($xpath);
my ($attr) = $doc->findnodes($xpath);
# setting new value:
$attr->setValue('dfdsa');
print Dumper $doc->findvalue($xpath);
# do following if you need to get string representation of your XML structure
print Dumper $doc->toString(1);
И, конечно же, прочтите документацию :)
Думаю, вам лучше начать с XML :: Simple и сначала немного поиграем:
#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
my $xml = XMLin(\*DATA);
print $xml->{TAG}->{string2}, "\n";
$xml->{TAG}->{string2} = "asdf";
print XMLout( $xml, RootName => 'PARENT');
__DATA__
<PARENT>
<TAG string1="asdf" string2="value of string 2">
</TAG>
</PARENT>
Вы также можете использовать XML :: Parser для получения значения. Для получения дополнительной информации обратитесь к документации XML :: Parser :
#!/usr/local/bin/perl
use strict;
use warnings;
use XML::Parser;
use Data::Dumper;
my $attributes = {};
my $start_handler = sub
{
my ( $expat, $elem, %attr ) = @_;
if ($elem eq 'TAG')
{
$attributes->{$attr{'string1'}} = 'Found';
}
};
my $p1 = new XML::Parser(
Handlers => {
Start => $start_handler
}
);
$p1->parsefile('test.xml');
print Dumper($attributes);
Спасибо за ваши ответы. Я нашел еще один ответ в « Обработка файла конфигурации с помощью LibXML2 », который я нашел очень полезным.