Perl 从远程域获取数据

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

确保这是你真正想要的。根据我的经验，“我们的”在编写脚本时很少使用，但在执行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;

---

如果要在服务器之间传递数据，请使用数据格式，不要传递代码。数据格式更安全，也更容易处理。问题似乎在于如何从远程服务器导入代码，然后执行它来填充变量。没错，“远程服务器数据”可能意味着很多事情。但在没有安全讨论的情况下，GET是我们的朋友。：）问题中有一个示例代码，显示了从HTTP URI导入原始Perl的尝试。