ばらす程のことでもないけど、この程度しかperl は使えません。でも、自分でもなかなか使えるとおもった自作のスクリプト集。基本的に文学歴史ネタ。

検索サービスはこちら

1. 汎用CSV コンバータ(1998-08-22 Sat)

   　今HP更新なんかやってる場合じゃないのですが、あんまり見事（どこが〜）に出来たので、嬉しくて。

   　複行レコードのテキストデータベースを、CSVファイルに変換する汎用スクリプトです。以前は sed でやってましたが、このperl版では、セパレータ類をオプション指定出来ます。（太字）はデフォルト。

   -s 出力ファイルのフィールド・セパレータ（, カンマ）
   -p 入力ファイルのレコード・セパレータ（^$ 空行）
   -i 入力ファイルのアイテム・セパレータ（: コロン）
   -e タブの保持
   -t テストモード。各セパレータを示す
   -l 出力ファイルの1行目に項目名を出力する
   -n 空のレコードや空行は出力しない
   s p i オプション末の( ) 内は初期値

   また、行頭にタブを置いて、項目内で改行しても良いようにしました。（複行フィールド対応）

   また、項目は、# から行末までを無視するようにしました。

   また、項目は、fin.exe互換コマンド（古い？）で、.ig 〜 ..までの部分を無視するようにしました。

   DISPLAY [csv.pl] (2kbyte)（画面に表示されます。SHIFT JIS + CRLFファイルです）

2. 享年などの表示

   歴史上の人物調査などでは、「文化十年没享年六十八歳」みたいな書き方をしますが、その場合、「じゃあ、何年生れだ?」とかいう時に、計算が結構面倒くさいものです。ほかにも、「文化元年生れ弘化三年没」って「じゃあ享年は幾つ?」。「文化三年生れのだれそれは、文政三年には何歳だった?」とか。このスクリプトは、それらを計算して表示します。

   DOWNLOAD [kyonen.lzh](11kbyte)（シフトを押しながら、クリック。）

   上のクリックじゃDOWNLOADできないかも。次のふたつが本体です。画面に表示します。

   DISPLAY [kyonen.pl](4kbyte)（スクリプト）
   DISPLAY [nengo.dat](11kbyte)（使ってるデータ）

3. その年代の天皇を知る

   % perl　 mikado.pl　 文化元年
   とかやって、その年の天皇が誰なのか、知りたいとき使えます。この夏作ってみたけど、今まで一度も使ってない。

   DOWNLOAD [mikado.lzh] (12kbyte)（シフトを押しながら、クリック）
   
   

   ---

   [コンピュータの目次に戻る] [ホームページに戻る]