> 私が気がついたのは、WinXPに入っていたFirefoxの古い版でアクセスしたときに、
> メニューのブックマークの中にあった「このページを購読」のボタンがアクティブ
> になっていたからです。
これを見て UA偽装有り無しもやってみましたが変わらないようです。
my $ua = 'Mozilla/5.0 (compatible; MSIE 9.0; Trident/5.0)';
# my $ua = 'Mozilla/4.0 (compatible; MSIE 7.0;)';
# my $ua = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:133.0) Gecko/20100101 Firefox/133.0';
> 軟式さんのサイトのトップページのソースを開くと、冒頭に「title='RSS'」って
> ありますので、そのリンクを使ってみてください。
これは気が付いていましたがそのリンクに変えても変わらないようです。
# my $url9 = 'https://www.nanshiki.co.jp/nanshiki.xml';
my $url9 = 'https://www.nanshiki.co.jp/index.html';
> そして、そのリンクだけを読み込もうとして、つまり、他のサイトを読まない、素の
> シンプルなテスト用のスクリプトを作って、それで
> > > これについてですが、#11754で私が尋ねたように、軟式さんのサイトだけを読み込む
> > > スクリプトでも同じ状況になる、ということですよね。
これもやってみましたが変わらず読めないようです。
ちなみに、「PerlでLWP::UserAgentを使った10のプログラミングテクニック」
https://jp-seemore.com/sys/20283/
と言うサイトに色々サンプルが載っていて、そのなかのサンプル
-----------------------------------------------------------
> 下記のサンプルコードでは、HTTPSリクエストを安全に送信する方法を表しています。
use LWP::UserAgent;
use IO::Socket::SSL;
my $ua = LWP::UserAgent->new(
ssl_opts => {
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER,
verify_hostname => 1
}
);
my $response = $ua->get('https://www.secure-example.com');
if ($response->is_success) {
print "Secure Response: " . $response->decoded_content;
} else {
die "SSL error: " . $response->status_line;
}
-----------------------------------------------------------
これも試してみましたがやはり読めませんでした。
他の HTTPS のサイトは読めましたがそれは元々読めていたので。
> この状況が起こるようであれば、私にもそのテスト用スクリプトを送ってほしい、
> ということでした。
色々ゴチャゴチャしてますが、メールで送りました。