-1

Perl を使用して、XML ファイルの特定のデータ (ファイル名) をハッシュに格納する必要があります。XML ファイルを 1 行ずつ反復処理していますが、schooldataのfile属性からファイル名を取得する方法に行き詰まっています。

アクセスしようとしている XML の部分は次のようになります。

<name number="5">
    <description>
        <schooldata file="/home/matt/.01"></schooldata>
    </description>
    <description>
        <schooldata file="/home/matt/.02"></schooldata>
    </description>
    <description>
        <schooldata file="/home/matt/0.3"></schooldata>
    </description>
    <description>
        <schooldata file="/home/matt/0.4"></schooldata>
    </description>
</name>
...
<name number="10">
...
</name>
4

3 に答える 3

1 
use strict; 
use warnings; 
use 5.014; 

use XML::LibXML;

my $filename = "xml.xml";
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($filename);

my %results;

for my $name ($doc->findnodes('/names/name')) {
    my $num = $name->getAttribute('number');

    for my $school ($name->findnodes('description/schooldata')) {
        push @{$results{$num}}, $school->getAttribute('file');
    }
}

use Data::Dumper;
say Dumper(\%results);


--output:--
$VAR1 = {
          '6' => [
                 '/home/betty/.01',
                 '/home/betty/.02',
                 '/home/betty/0.3',
                 '/home/betty/0.4'
               ],
          '5' => [
                 '/home/matt/.01',
                 '/home/matt/.02',
                 '/home/matt/0.3',
                 '/home/matt/0.4'
               ]
        };

xml.xml: 

<?xml version="1.0" encoding="UTF-8"?>
<names>
<name number="5">
          <description>
                      <schooldata file="/home/matt/.01"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/matt/.02"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/matt/0.3"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/matt/0.4"></schooldata>
          </description>
</name>

<name number="6">
          <description>
                      <schooldata file="/home/betty/.01"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/betty/.02"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/betty/0.3"></schooldata>
          </description>
          <description>
                      <schooldata file="/home/betty/0.4"></schooldata>
          </description>
</name>
</names>
于 2013-06-28T21:02:19.923 に答える
-1 
$line = '<schooldata file="/home/matt/.01"></schooldata>';
print $1 if ($line =~ /schooldata file="([^"]+)"/);
于 2013-06-28T21:07:52.280 に答える