Nanashi-softプログラマ専用RSSを付けてみる


◇RSSを付けてみる 〜改良する〜

とりあえず作ったプログラムでは,ファイル名しか表示されず,時間も日本人向けでは無い
表示を見易く改良します

○日付を直す

今は,
[曜日 月 日 時:分:秒 年]ファイル名
になっています

日付だけあれば十分でしょうから,
[月/日]ファイル名
にします

プログラム中の,localtimeでそのまま日付を出力している箇所を変更します

	$s .= '<title>[' . localtime($_) . ']' . $files{$_} . '</title>' . "\n";

の部分を変更

	($a, $a, $a, $mday, $mon) = localtime($_);
	$s .= '<title>[' . ($mon+1) . '/' . $mday . ']' . $files{$_} . '</title>' . "\n";

○タイトル表示にする

今,ファイル名を表示していますが,閲覧者がそれを見ても意味が分かりません
タイトルの内容を表示する方が良いでしょう

ファイル名は分かっているので,そこから先頭20行程読み取り,

	my $infn = $files{$_};
	my $t = '';
	my $cnt2 = 0;
	open(IN, $dir . $infn);
	while(<IN>){
		chop;
		$t .= $_;

		$cnt2++;
		if (20 < $cnt2){
			last;
		}
	}
	close(IN);

<title>〜</title>間の文字を取得する

	if ($t =~ /<title>(.*)<\/title>/i){
		$t = $1;
	}

で,それを出力するように変更

	$s .= '<title>[' . ($mon+1) . '/' . $mday . ']' . $t . '</title>' . "\n";
	$s .= '<link>' . $site_url . $infn . '</link>' . "\n";
	$s .= '</item>' . "\n";

これで,
[月/日]タイトル
になりました


TOPプログラマ専用RSSを付けてみる