谁会玩PERL?

zjsz007

my $booklink = &get_default_ip();
push(@rv, { 'type' => 'link',
            'priority' => 50,
            'desc' => $text{'righ_IP'},
            'target' => 'new',
            'link' => 'http://'.$booklink.'/book' });


最后一行 link 怎么写 能获取  http://X.X.X.X/book

楼下节操掉满地

print @rv[-1]->{'link'};