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」はスクリプト作成時に使用されることはめったにありませんが、OOperlを実行するときに役立ちます。

あなたの要求に関して：

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;