perl - 从远程域获取数据

Question

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

Answer 1

确保“我们的”确实是您想要的。根据我的经验，'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;