■ひる〜

_ いろいろ仕様検討。

_ 遅くなる理由は自明。GNSは、

1. 置換すべき語のためのマークがあるかどうか調べる。
2. マークがあればそれをもとに置換すべき語を抜き出し、置換する。

という作業なのに対し、自動置換は

1. 各行に対し、置換すべき語があるかどうかを探す。
2. あれば置換すべき語を抜き出し、置換する。

という作業になります。1.が問題で、前者の方法では置換にかかる時間が「行数」に比例するだけなのに対し、後者は「置換語数」も係数になります。perlでは（awkに比べて）正規表現の柔軟性と最適化能力の高さでこれに追随できるというだけのことです。こんなんでいいのかな・・・$keylistがどこまで延ばせるのかが心配だが^^;。

#!/usr/local/etc/perl
open( REP, "replacelist.txt" );
while (<REP>) {
  ( $key, $replace ) = split;
  $rep{ $key } = $replace;
  $keylist .= '|' if ($keylist ne "");
  $keylist .= $key;
}

while (<>) {
  s/($keylist)/$rep{$1}/go;
  print;
}

_ 午後のこ〜だ。むちゃむちゃ速いわ。音質は「いまのPCサウンド環境では大した違いを感じない」というところか・・・線は安いしSC-88Pro通してるしヘッドホンで聴いてないし。

_ 垂直同期周波数60Hzだとくらくらするのはわからんでもないが・・・TVと同じだと思えば・・・ねぇ^^;。

_ tomさんとこから、春分・秋分を求める式。

[URL]

[View Log()]

[Trackback]

Name: Comment: