新着情報 V0.955 更新しました。
今までのツリーは長くなりすぎたのでここから新規にします。

・タイトル行引用で表示が乱れるバグ修正

> #11729：Re^8: 「新着情報 携帯版」と掲示板の連携 　投稿者：konno 　 2024/12/10(火)
> 正確には新着のタイトル行丸ごと引用するとそれをタイトル行と誤認識してしまうというものです。
> > コードを貼り付けていただければ回避法を議論できるかもしれない、ということです。

今まではこのようにタイトル行を引用すると表示がバグっていたのを修正しました。
修正コードは
			if (($_ =~ /\投\稿\者\：/)){
			　　　　　　↓
			if (($_ =~ /^\投\稿\者\：/)){

これだけです。(^^;
「投稿者：」という文字列が行頭にある時だけ処理する、と変更して直りました。(^^;
今まで頭が全然回ってなかったようです。(^^;


・DOSVAXJ3の更新日付を表示

今まで不便に思っていたので思い切ってやってみたら、サイトの読み込みに失敗するようです。
この手のツールからのアクセスを制限しているのかもしれません。
しかたがないので、ブラウザの検索をURLにしたら（おい）アクセスできました。(^^;
表示しないこともあるかと思いますがそういうことなのでご容赦願います。m(__)m

・リンクの並びを変更

VTDOS BBS の更新が無いので、リンクの並びを個人的優先順位で変更しました。
私のノートPCだと表示がギリギリなので。(^^;

> 具体的にどういうコードでどういう出力になった、ということを示していただければ
> もしかしたらアドバイスできることもあるかもしれません。

    ## コンテンツの取得
#	my $url9 = 'https://www.nanshiki.co.jp/index.html';
	my $url9 = 'https://www.bing.com/search?q=https%3A%2F%2Fwww.nanshiki.co.jp%2Findex.html&form=ANNTH1&refig=f3c6701be6124ed48672eed8a56674e7&pc=U531';
	my $res9 = $lwp->get( $url9 );

このようにブラウザの検索で「DOSVAXJ3」を検索して、その時のURLを貼り付けました。

	if ( $res9->is_success ) {

## ダウンロード失敗時
	 } else {
		 print "error\n";
	}

このエラーが表示するので失敗したとわかりましたが、詳細はわかりません。
タイムオーバーではエラー表示しなかったのでブロックされているのではと思ったのです。

> > しかたがないので、ブラウザの検索をURLにしたら（おい）アクセスできました。(^^;
> ？？？
> これはよくわからない。
> CGIスクリプトで取得しているのですよね？

上に貼り付けたのでわかりますよね。

> 新しい並びで、私は全く問題ありません。
> が、例えば、縦ではなく横に並べてみる、ということはできませんか？

おお！　その手があったか！　スマホ対応で幅を制限してたんですが
ブラウザ画面を狭くするとリンクは折り返してくれるので全く問題ないですね。
どうも考え方が平面的になっていました。立体で考えるとはこのことですね。(^^;

眠いので続きはまた。(__)..zzZ

> 私が気がついたのは、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 のサイトは読めましたがそれは元々読めていたので。

> この状況が起こるようであれば、私にもそのテスト用スクリプトを送ってほしい、
> ということでした。

色々ゴチャゴチャしてますが、メールで送りました。

> 色々ゴチャゴチャしてますが、メールで送りました。

いただきました。
ゴチャゴチャしているのもそうですが、送られてきたスクリプト、いろいろと悪い
意味で予想が外れていました。

#11773
> そして、そのリンクだけを読み込もうとして、つまり、他のサイトを読まない、素の
> シンプルなテスト用のスクリプトを作って、それで
> > これについてですが、#11754で私が尋ねたように、軟式さんのサイトだけを読み込む
> > スクリプトでも同じ状況になる、ということですよね。"
> この状況が起こるようであれば、私にもそのテスト用スクリプトを送ってほしい、

と書いたので、当然、該当URLを読み込む部分だけのスクリプトで試験していて、その
スクリプトを送ってくると思っていたのですよ。が、いろいろな出力部分が残って
いて、それがわりと迷彩状態。もうね、この段階で私の期待はずれ。
テストはできるだけシンプルなコードで、ということは心がけてほしい。

で、まずは手始めに、送っていただいたコードの中の取得するURLを指定している
だけを、うまく取得できるはずのbing経由に書き換えてlacoocanの私のスペースに
アップロードしてアクセスするも、あえなくlacoocanからの

> Internal Server Error
> 実行エラー
> CGIの実行時にエラーが発生しました。

の表示。う〜ん、一体何が悪いのかわからん。
もしかしたら、いらなさそうなところを全部削ればきちんと動くのかもしれません
が、そんなこともやってられない。結局、自前で試験用スクリプトを作ってしまい
ました。以下のような感じ。

#!/usr/local/bin/perl

use LWP::UserAgent;

    my $ua      = 'Mozilla/5.0 (compatible; MSIE 9.0; Trident/5.0)';
    my $timeout = '230';
    my $lwp = LWP::UserAgent->new( agent => $ua, timeout => $timeout );

    my @new = ();
    my @list = ();
    my $outline = '';
    print "Content-type: text/html\n\n";
    print "<html><head><title>dummy</title></head><body>\n";

    ## コンテンツの取得
    my $url1 = 'https://www.nanshiki.co.jp/nanshiki.xml';
#    my $url1 = 'http://27-138-85-108.rev.home.ne.jp';
    my $res1 = $lwp->get( $url1 );

    ## ダウンロード成功時
    if ( $res1->is_success ) {
        print "success";
    ## ダウンロード失敗時
    } else {
        print "error\n";
    }
    print "</body></html>\n";

__END__


これだけのコードで、うまくデータが取得できないことは確認。
ということで、ここから調査開始。
まず軟式さんのサイトの素性調査。すると、bit-driveというソニー系のサービスを
利用していることが判明。が、このサービスが特殊、というのは引っかかってこない。
次に、LWPでうまくアクセスできない、という状況を調査。
すると、２０年近く前のQ&Aで、Wikipediaにうまくアクセスできないという状況が
あったらしい。このときは、LWPのデフォルトのユーザーエージェントがlibwww-perl
となっていて、そのＵＡでのアクセスをWikipediaが蹴っ飛ばしているから、とのこと。
でも、今回はスクリプトでＵＡを変更しているから関係ないよなぁ、と思いつつ、
FirefoxのアドオンでＵＡを偽装してlibwww-perlを偽ってみたり、ＵＡなしにして
みたりして軟式さんのところにアクセスすると、普通にアクセスできるので、おそらく
ＵＡは関係なさそう。
ただ、これに着想を得て。
LWPがアクセスするときの、HTTPのプロトコルレベルで何か余計なものがくっついて
いる可能性があるのではないかと思い、自宅で80番ポートにダミーのサーバを立てて
プロトコルレベルでのやり取りを観察しようと思いました。使ったソフトは「鯖男」
というものです。ベクターにあります。
結果、「インデックスがリストの範囲を超えている」みたいなエラーメッセージを
「鯖男」が吐いてきて。つまり、「鯖男」が想定していないようなデータをニフティ
のLWPは送りつけている模様。

ここまでの調査でわかったことはこれだけ。
今後の調査の方向。
LWP::UserAgent ではなく LWP::Simple にある getprint というのを使うと、少し
詳しいステータスが取れるらしい。これでエラーコードか何かがわかれば、さらに
先に進む手がかりが得られるかも。
もちろん、LWP::UserAgent ですら、私は全てを把握できているわけではないので、
その中で何か有用なものがあれば使ってみたい。

途中経過でした。

> ・DOSVAXJ3の更新日付を表示
> 表示しないこともあるかと思いますがそういうことなのでご容赦願います。m(__)m

ブラウザの検索データは大きすぎて表示が間に合わないっぽいです。
更新を２度やれば表示するようです。
なので、コンテンツの取得では最後尾に追加してたんですが
    ## コンテンツの取得
	my $url9 = 'https://www.bing.com/search?q=https%3A%2F%2Fwww.nanshiki.co.jp%2Findex.html&form=ANNTH1&refig=f3c6701be6124ed48672eed8a56674e7&pc=U531';
	my $res9 = $lwp->get( $url9 );
    my $url1 = 'http://vtdos.bbs.fc2.com/';
    my $res1 = $lwp->get( $url1 );

このように最初に移動させて読み込み、処理時間稼ぎをしたらほぼ表示するようになったようです。
サーバーの負荷が凄そうでとっても邪悪。(^^;

あと日付の表示を大きめにして、表のタイトル文字を少し小さくしました。