Question

我正在使用链接的API来访问用户个人资料。

my $profile_xml = $li->request(
    request_url         => 'http://api.linkedin.com/v1/people/~:(id)',
    access_token        => $access_token->{token},
    access_token_secret => $access_token->{secret},
);

profile_xml已解析并放入数据转储器并打印

$VAR1 = [ 'person', [ {}, 0, ' ', 'id', [ {}, 0, 'bEdS5KlaV7' ], 0, ' ' ] ];

使用数据转储器从xml字符串获取上述值。我想访问ID bEdS5KlaV7。如何访问id并存储在一个变量中以进行处理。

Answer 1

use warnings;
use strict;

my $VAR1 = [ 'person', [ {}, 0, ' ', 'id', [ {}, 0, 'bEdS5KlaV7' ], 0, ' ' ] ];
print $VAR1->[1]->[4]->[2], "\n";

__END__

bEdS5KlaV7

另请参阅：perldoc perldsc

访问XML字符串值

1 个答案: