みみず工房ブログ

以下のperlのコードは前回の最後に紹介したBingAIのソースコードをベースに作成したものです。
#!/usr/bin/perl
use strict;
use warnings;
my $filename = './award/cafe/admin/data/page.dat';
my $filename1 = './award/linkv/data/log.cgi';

open (FILE, $filename) or die "Can't open $filename";
my @buffers = ;
my $lines = @buffers;
close FILE;

open(IN, "<$filename") or die "Could not open file '$filename'";
open(OUT, ">$filename1") or die "Could not open file '$filename1'";
my $head = 0;

while (my $row = ) {
# 入力データを一行読み込む
chomp $row;
# タブで分割する
my @fields = split /\t/, $row;
# 番号0, 日時A, タイトルを取り出す
my ($num, $date_a, $title) = @fields[0, 1, 3];
# 日時Aを年.月.日の形式から年月日の形式に変換する
my $date_b = $date_a;
$date_b =~ s/\.//g;
# 日時Aを年.月.日の形式から年,月,日の形式に変換する
my $date_c = $date_a;
$date_c =~ s/\./,/g;
# 変換後のデータを出力する
if ($head == 0) {
print OUT "$num<>admin<>$lines\n";
# print "$num<>admin<>$lines\n";
$head = 1;
}
print OUT "$num<>0<>$title<>http://mimizukobo.atwebpages.com/archives/day/$date_b-1.html<>$date_a<><><><>$date_c<>\n";
# print "$num<>0<>$title<>http://mimizukobo.atwebpages.com/archives/day/$date_b-1.html<>$date_a<><><><>$date_c<>\n";
}
close(IN);
close(OUT);


コメント行を入れて40行弱。ヘッダー部分の編集はもっと手抜きできますので、20行強のプログラムを走らせれば、LinkViewを使ってCafelogにタイトル一覧表示させることが出来ます。
プログラムはCafeLogの出力するpage.datを読み込み、その内容を編集し、ListViewerがタイトル一覧を編集出力するためのデータファイル(log.cgi)自動的に作成しています。
Perlを使えば、編集そのものは数行で済みますので、楽ですね。

テンプレートファイルを編集すると、こんな感じでタイトル一覧が表示されます。


このプログラム、次のような指示書によりBingAIが出力したものです。
perlを使い、
番号0\t日時A\t時刻\tタイトル\t数字\tカテゴリ数字\t数字\t数字\t\nとなっているデータを一行単位に読み取り、
番号<>0<>タイトル<>http://mimizukobo.atwebpages.com/archives/day/日時B-1.html<>日時A<><><><>日時C<>\n
という具合に変換し、印字するプログラムを作成して下さい。
日時Aは年.月.日
日時Bは年月日(20230101という具合に年月日の数字をくっつけて、区切りの/は無し)
日時Cは年,月,日
とします。
また、先頭には読み取った一行を使い
番号0<>admin<>番号0\n
という行を追加して下さい。


この位に丁寧な説明だと、BingAIでもperlプログラミングしてくれます。perlに慣れている人だと「自分でプログラミングした方が速いよ」といわれそうですね。また、前回書いたように完全なコードではありません。上記例のようにWhileループを補ってやる必要があります。
僕の場合はPerlには慣れていないので、インタネットでサンプル捜しし、適当に修正する手間が省けるので、助かりました。

データファイル(log.cgi)のhtml(listv.html)出力はadmin.cgiを使い、行います。
admin.cgiを起動すると次のような画面が表示されます。


最新の記事を選び、プルダウンメニューで「修正」を選び、実行(送信する)。


修正用の画面が表示されますので、そのまま「送信する」させます。
これで最新のタイトル一覧画面用のHTMLが生成され、表示できるようになります。

この方法はListViewer側のCGIの変更は不要で、上記のperlスクリプトをWindows環境で実行させるだけです。簡単でいいのですが、サイトで更新されたpage.datをダウンロードし、スクリプトが変換したlog.cgiをサイトにアップロードする必要があるなど多少手間がかかります。

という訳で、admin.cgiに上記のコードを追加すれば、楽を出来そうなので、やってみることにしました。「実行」というプルダウンメニューを用意し、クリックすればHTMLが生成されるという方式にしました。


このため、admin.cgiに手を入れた内容です。

最初の関数 sub admin_mode の判定分岐部分の最後に以下を追加。
# 実行
} elsif ($in{job} eq "exec") {
my $filename = 'page.dat';
open(IN,"<../admin/data/$filename") or &error("open err: '$filename'");
open(DAT,"> $cf{logfile}") or &error("open err: $cf{logfile}");
my $headerkey = 0;
while (my $row = ) {
chomp $row;
my @fields = split("\t", $row);
my $dateA = $fields[1];
my $dateB = $dateA;
$dateB =~ s/\.//g;
my $dateC = $dateA;
$dateC =~ s/\./,/g;
my $url = "http://mimizukobo.atwebpages.com/archives/day/$dateB-1.html";
my $cate = 7 - $fields[5];
if ($headerkey == 0) {
my $num = $fields[0];
my $new_row1 = "$num<>admin<>$num\n";
print DAT "$new_row1";
$headerkey = 1;
}
my $num1 = 7 - $fields[5];
my $new_row = "$fields[0]<>$num1<>$fields[3]<>$url<>$dateA<><><><>$dateC<>\n";
print DAT "$new_row";
}
close(IN);
close(DAT);

# 日付取得
my ($date,$time,$mark) = &get_time;
# データ読み込み
my (@data,%data,%cate);
open(DAT,"+< $cf{logfile}") or &error("open err: $cf{logfile}");
eval "flock(DAT, 2);";
my $top = ;
while() {
chomp;
my ($no,$cate,$sub,$url,$com,$date,$time,$host,$mk) = split(/<>/);
$mk ||= '2000,01,01';
push(@data,"$_\n");
$data{$cate} .= "$sub<>$url<>$com<>$mk\t";
# カテゴリデータ認識
$cate{$cate}++;
}

chomp($top);
my ($num, $ip, $all) = split(/<>/, $top);
my $all = @data;
# マスタデータ更新
unshift(@data,"$num<>$ip<>$all<>\n");
seek(DAT, 0, 0);
print DAT @data;
truncate(DAT, tell(DAT));
close(DAT);

# HTML更新
&renew_html(\%data,\%cate,$all,$date);
}

前半部分は最初に紹介したスクリプトを簡略化したもの。後半部分はHTML更新を行うための関数を呼び出すためのデータを生成しています(こちらは削除処理のコードをほとんどそのまま流用)。

直後の管理画面のプルダウンメニューを次の通り変更します。
if (!$cf{reg_type}) {
print qq|実行\n|;
print qq|新規\n|;
}
print <修正
削除


あと、これ以外にJcodeを呼び出す部分(4箇所)をコメントアウトしています。修正機能を使わなければ不要ですが、一応対応しました。
実はこの日本語コードの問題が今回の対応で一番手こずりました。詳しくは次回に。

今、このブログをパソコンでご覧の方は、画面の右側、プロフィールの上に「記事一覧」というリンクが登場したことに、気づかれたかもしれません(スマホの場合は記事が終わったあとのサイトの紹介部分に表示されます)。
「レコ芸難民のためのリンク集」の作成中に、CafeLogのソースコードを眺め、記事のタイトル一覧を作れないかなと考えました。
CafeLogの作者が公開しているLinkViewというリンク管理用のCGIを使って簡単に出来ましたので、何回かに分け、ご紹介します。

旧みみず工房では、タイトル一覧をRubyスクリプリトで自作したので、好きなように設定出来ました。



こんな感じですね。

CafeLogにはタイトル一覧を表示する機能はありません。
既成のスクリプトなので、CGIを改造し、機能追加する必要があります。

CafeLogの場合、html生成用の出力定義ファイル(index.dat、page.dat)を使い、プログラミングすれば、同じようなことが出来そうです。テンプレートファイルを用意し、定義ファイルからタイトル一覧htmlを自動生成することになります。
同様の処理をするCGIを捜せば、手抜きすることが出来ると考えました(^^;;;。kentさんのサイトを捜してみたら、LinkVisorというリンク集を作成するCGIがありました。


このCGIは、ご覧のように、画面上部のボックスに入力されたリンクデータを、自動的に、画面下部のリンク一覧として、作成(追加)するためものです。リンクデータはカテゴリ別に分類することが出来ます。
みみず工房のタイトル一覧としては入力側の機能は不要ですが、リンク一覧を作成する出力側の機能はそのまま使えそうです。
ご覧のように上部分を削除し、下部のみ残せばカテゴリ別のタイトル一覧となります。まさに手抜きの目的通りです。これは使えるかなと考え、早速、中身をチェック。


ListVisorのルートディクトリーです。
LinkVisorはCafeLogと同じようにデータファイルからテンプレートファイルを編集して、linlv.htmlとして出力し、表示させるという方式をとっています。この方式はhtmlが表示される度に、毎回CGIが走ることがないので、ホストの負荷を下げるには有効ですね。
admin.cgiとlinkv.cgiがテキストボックスからの入力を受け、リンクデータを編集し、画面下部に出力するためのcgiです。linkv.cgiは誰でもリンクを登録出来るようにするためのもので、設定を訪問者が登録可能とした場合のみ有効になります。初期時のフォームの設定は設定は次の通りでした。
＜form action="./linkv.cgi" method="post"＞


では、管理者のみ指定した場合どうなるか。
admin.cgiが動くようです。リンク集リストの出力など共通の処理はinit.cgiにまとめられています。

admin.cgiの中を見てみました。分かりやすい作りとなっていて、リンクの編集はdata_addという関数で処理しているようです。log.cgi(リストデータです)を読み込んで、リンク用htmlを吐き出しているだけ。
ということは、このlog.cgiを作り出してやれば、ほとんどcgiを弄ることなしに処理出来そうです。


これは、CafeLog(ブログ用のCGI)のデータディレクトリーです。index.datとpage.datを使えば、100%、リンクを復元出来そうです。

00016 2023.09.08 14:32 『レコ芸』難民のためのリンク集 1 6 0 1
00014 2023.09.04 18:43 『レコ芸』難民のために 2 1 7 0 1
00013 2023.08.20 21:03 トゥーランドット 1 7 0 1
00012 2023.07.07 14:58 『レコ芸』難民(^^;;;のために 1 7 0 1
・・・・・
これがpage.dat。

00003 top:page-5.html cat:2-1.html day:20230402-1.html mon:202304-2.html
00005 top:page-4.html cat:7-2.html day:20230406-1.html mon:202304-1.html
00013 top:index.html cat:7-1.html day:20230820-1.html mon:202308-1.html
00009 top:page-3.html cat:6-1.html day:20230508-1.html mon:202305-1.html
・・・・・
これがindex.dat。

変換後のlog.cgiはこんな形です。
00016<>admin<>15<>
00016<>1<>『レコ芸』難民のためのリンク集<>http://mimizukobo.atwebpages.com/archives/day/20230908-1.html<>2023.09.08<><><><>2023,09,08<>
00014<>0<>『レコ芸』難民のために 2<>http://mimizukobo.atwebpages.com/archives/day/20230904-1.html<>2023.09.04<><><><>2023,09,04<>
00013<>0<>トゥーランドット<>http://mimizukobo.atwebpages.com/archives/day/20230820-1.html<>2023.08.20<><><><>2023,08,20<>
00012<>0<>『レコ芸』難民(^^;;;のために<>http://mimizukobo.atwebpages.com/archives/day/20230707-1.html<>2023.07.07<><><><>2023,07,07<>


BingAIを利用したら、簡単に出来ました。
#!/usr/bin/perl

#!/usr/bin/perl
use strict;
use warnings;

# 入力データを一行読み込む
my $line = ;
chomp $line;

# タブで分割する
my @fields = split /\t/, $line;

# 番号0, 日時A, タイトルを取り出す
my ($num, $date_a, $title) = @fields[0, 1, 3];

# 日時Aを年.月.日の形式から年月日の形式に変換する
my $date_b = $date_a;
$date_b =~ s/\.//g;

# 日時Aを年.月.日の形式から年,月,日の形式に変換する
my $date_c = $date_a;
$date_c =~ s/\./,/g;

# 変換後のデータを出力する
print "$num<>admin<>$num\n";
print "$num<>0<>$title<>http://mimizukobo.atwebpages.com/archives/day/$date_b-1.html<>$date_a<><><><>$date_c<>\n";


そのままでは使えませんが、多少変更したら、上手く動くようになりました。動かすのに苦労したのは日本語の文字コードの取り扱いです。Perlプログラミング部分は楽をできました。『バカとAIは使いよう』ですね。

詳細は次回以降、ご紹介します。

前回、『このブログのサイド画面トップに「レコ芸難民救済のためのリンク集」作ってみますかね(^^;;;(^^;;;(^^;;;。』と書きましたが、案外簡単に出来ました(^^)。



パソコンやタブレットの横幅の大きい画面でご覧の方は画面の左上に同じものが表示されていると思います。
スマホでは最新の記事が三つ続いた後にパソコンのサイド画面が表示されます。まあ、3記事分スクロールさせるのは大変ですので、スマホの場合は、リンクをお気に入りのアイコンに変え、画面のどこかに置くという方法が賢明です。

今年の3月から、みみず工房の記事ページをブログ形式に変え、トップ画面にするよう変更しました。
この時、既成のプログサービスを行うサービスの使用も検討しましたが、「自由が効かないのはいやだな」と考え、kentさんのブログページ作成用CGIを使ううことにしました。「いざとなれば、CGIを変更すれば、自由に変えられる」と考えたからです。

というわけで、初めて「自由に変えられる」かどうか確認するチャンスとなりました。
使っているCGIはCafeLogというものです。ブログとしての標準的機能は十分であり、パソコンとスマホの両方に表示可能なレスポンシブ対応されいます。CGIとしてのソースは全て公開されていますから、自由に編集することが可能です。画面(HTML)とCSSがテンプレート式であり、簡単な修正であれば、このテンプレートを修正するだけで対応できます。

今回はこの方法で対応しました。


これがテンプレートの在り処です。


今回はこのindex.htmlを修正するだけで対応できました。


これが修正部分です。＜div class="sidebody"＞とあるのがサイド画面に表示するためのstyle sheetの指定。＜!-- links --＞という部分がcgiで設定しているリンクです。リンクは管理画面で自由に設定出来ます。従って、リンク先のサイトを容易に変更することが出来ます。
その下の＜div class="side-ttl"＞旧サイトへのリンク＜/div＞以下の部分は以前はCGIのリンクの機能を使って表示させていたのですが、上記変更に伴い、ダイレクトにサイド画面に書き込むよう変更しました。

「レコ芸難民のための」変更は以上の通りですが、HTMLの知識があれば簡単に出来る内容ですので、このCGIプログラムは便利ですね。作者のkentさんに感謝です。