1

私はPERLを学んでいます。XMLの解析に関するドキュメントをいくつか読み、同僚のコードの一部を再利用しました。しかし、このデータに含まれる3人のサッカー選手の名前のリストを単純に印刷することはできないようです。助けてください。これがPERLコードです：

    #! /usr/bin/perl -w
use strict;
use DBI;
use XML::Simple;
use LWP::UserAgent;
use HTTP::Request;
use Time::gmtime;
use Time::Local;
use Data::Dumper;

sub statsInit(){
  my $xml_api_url = "http://myprovider.com/nfldata.xml";
  my $xml = getXML($xml_api_url);
  my $xmlData = xml2Simple($xml);
  print "Hello World";
  foreach my $player (@{$xmlData->{player}}){
    my $playername = $player->{name};
    print "pn = $playername | ";
  }
}


sub getXML($){
    my ($xmlURL) = @_;
    my $dataresponse = '';
    my $agent = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 100);
    my $header = HTTP::Request->new(GET => $xmlURL);
    my $request = HTTP::Request->new('GET', $xmlURL, $header);
    my $response = $agent->request($request);
    if($response->is_success){
        $dataresponse = $response->content(); #Loaded data from FINAL_XML
    }
    return $dataresponse;
}

sub xml2Simple(){
    my ($xml) = @_;
    my $xmlObj = XML::Simple->new(KeyAttr => {});
    my $xmlData = '';
    my $parsedData = '';
    if($xml){
        $xmlData = $xmlObj->XMLin($xml);
    }
    return $xmlData;
}

statsInit();
-------- NOW BELOW IS THE RETRIEVED XML DATA --------
    <season xmlns="http://myprovider.com/schema/nfl/statistics-v1.0.xsd" season="2012" season_type="REG">
<team id="BUF" name="Bills" market="Buffalo">
    <players>
        <player id="100" name="Nick Barnett" games_played="1" games_started="1" jersey="50" position="OLB">
            <defense tackle="7" ast="2" />
        </player>
        <player id="101" name="Ryan Fitzpatrick" games_played="1" games_started="1" jersey="14" position="QB">
            <rushing att="2" yds="8" />
            <passing att="32" cmp="18" yds="195" td="3" int="3"/>
        </player>
        <player id="102" name="Fred Jackson" games_played="1" games_started="1" jersey="22" position="RB">
            <rushing att="6" yds="15" td="0"/>
        </player>
    </players>
</team>
</season>

したがって、私のコードはデータを正常に取得しているようで、エラーは発生しません。「HelloWorld」が印刷されます。ただし、プレーヤーループに入ることがなく、プレーヤー名も出力されません。私は何が間違っているのですか？

4

2 に答える 2

1

私はそれを考え出した。私はこの行を変更しなければならなかったと思います。

foreach my $player (@{$xmlData->{player}}){

これに：

foreach my $player (@{$xmlData->{team}{players}{player}}){
于 2012-09-14T06:01:36.363 に答える
0

もう1つのオプションは、ドキュメント全体を1つのデータ構造に解析することをバイパスし、各レコードを解析、処理、および忘れることです。

use strict;
use warnings;

use XML::Rules;

my @rules = (
  player => sub {
    my $p = $_[1];
    print "$p->{name}\n";
    return;
  },
  _default => undef,
);
my $xr = XML::Rules->new( rules => \@rules );
$xr->parse($xml);
于 2012-09-26T22:26:09.073 に答える