从远程域获取数据

时间:2012-06-14 14:14:19

标签: perl api cgi

是否可以通过perl脚本将远程数据从一个域传送到另一个域?

我不想进入安全讨论,只是寻找获取远程服务器数据的工作示例。

远程脚本:

sub GetPageData{ 

  $PageData = 'Hello World';
}

本地脚本:

#!/usr/bin/perl

print "Content-type: text/html\n\n";  
our $PageData;

require("http://MyDomain.com/cgi-bin/test.pl");
GetPageData();

print "$PageData";

1 个答案:

答案 0 :(得分:0)

确保'our'确实是您想要的。根据我的经验,“我们的”在编写脚本时很少使用,但在执行OO perl时可以派上用场。

关于您的要求:

use LWP::UserAgent;
use HTTP::Request;
my $req = HTTP::Request->new( GET, $url );
my $ua = LWP::UserAgent->new( timeout => 5 );
my $res = $ua->request( $req );
return unless $res->is_success;
my $page_data = $res->content;