從遠程域獲取數據

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;