访问 XML 字符串值

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";

输出：

bEdS5KlaV7

另请参阅：perldoc perldsc