perl - 「get」が perl で機能しない

Question

私はperlが初めてです。ここ数日、「get」を介して Web サイトのソース コードをコンピュータに保存する簡単なスクリプトをいくつか作成しました。彼らは当然のことをしますが、フォーラムである Web サイトのコンテンツを取得しません。フォーラム以外の Web サイトは問題なく機能します。何が起こっているのか分かりますか？問題のチャンクは次のとおりです。

my $url = 'http://www.computerforum.com/';
my $content = get $url || die "Unable to get content";

Answer 1

http://p3rl.org/LWP::Simple#get :

get() 関数は、指定された URL で識別されるドキュメントを取得して返します。失敗すると undef を返します。[…]

この関数を使用して Web にアクセスしている場合、応答コードまたは応答ヘッダー (「Content-Type」など) を調べることはできません。その情報が必要な場合は、完全な OO インターフェイスを使用する必要があります (LWP::UserAgent を参照してください)。

より良いエラー報告が本当に必要です。LWP::UserAgentライブラリに切り替えてください。フォーラム ソフトウェアが LWP ユーザー エージェントをブロックしていると思われます。