是否可以通过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";
答案 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;