mieki256's diary

えー。

単に USER_AGENT を書き換えてるだけなのか、本気で PC88SR からアクセスしてるのか。判断に悩む。

そういうことなんだろうなぁ。

_福島テレビ でも流れてたことがあったのか。ノーチェックだった。

ていうか。何故に福島テレビのページはこんなに充実してるのか。素晴らしい。「自治体がマスコミの筆頭株主になっている」とか、2回も免許失効してるとか、なんだか面白いな。

_DVDのメリット

_例えば｢DVDの画質は何故良くなったのか｣と問えば、｢デジタルだから｣なんて返答が平気で罷り通ってるわけです。

おれが厭で仕方ないことは、要するに何事の善し悪しも漠然とした印象で決められてしまうことなんです。根拠のない理由を理由に、｢これはこういうものだ｣と言われてしまうことなんです。

例えば｢DVDの画質は何故良くなったのか｣と問えば、｢デジタルだから｣なんて返答が平気で罷り通ってるわけです。もっと悪いものだと｢DVDだから｣と言うことも。

00年代前半、MPEGキャプチャに焦れたり、熱中した人間からすれば、そんなことはないことが明らかなのに、それ以下の体験しか持たない人たちが、経験者以上の自信と確信を持って｢これはこういうことだ｣と言い切ってしまうこと。

或いは経験が少ないからこそ言い切れるのかも知れないです。ただ、このことが気持ち悪くて、怖くて、そしてその根っこに横たわるものによって受けた様々な事柄が胃の中を熱くして仕方ない。

sside.net: 我が不満の日々 より

同感…。

や、自分も時々そういうことをやってしまってる可能性は高いのだけど。ただ、自分程度の無学・無知な人間ですら「それ、違う」と思うときがあったりもして。…でも、技術関係の話は、説明が伝わることが多いので、まだいいほうなのかしらん。

録音、撮影といった行為の時点で、ぼくらは、非可逆への暗黙的了解をしてしまっているのかもしれない。その時点でオリジナルは劣化コピーと化し、二度と再現することはできなくなる。

山田祥平のRe:config.sys より

デジタルがぼくらの生活にもたらした恩恵は決して少なくはないが、それによって、失ったものも多い。

山田祥平のRe:config.sys より

関連のある内容だと思ったのでメモ。

自分なりに色々手を入れたところがある log.cgi なので、公式に配布されてるものとは違ってる可能性も高いのだけど。一応メモ。

ファイル名や、ワークの確保。

# URL -> 名前 への変換マップ・ファイル(正規表現)
my $url_map_regexp = "$diaryDir/conf/url_map_regexp.txt";

my %urlnameregexp;

sub open_log { } 内に、ファイルを読み込む部分を追加。

    if (-f $url_map_regexp) {
        open(URLMAPREGEXP,"$url_map_regexp") || die "Can't Open URLMapRegexp File: $url_map_regexp: $!";
        while (<URLMAPREGEXP>) {
            CodeConv::toeuc(\$_);
            $urlnameregexp{$1} = $2 if (/^(\S+)\s+(.+)$/);
        }
        close(URLMAPREGEXP);
    }

sub referer { } 内のループ内に、比較部分を追加。

            # 正規表現でURL->名前変換
            my $refname = $_;
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ( $fg == 0 && exists($urlname{$_})) {
                $refname = $urlname{$_};
            }

sub recent_ref { } のループ内に、比較部分を追加。

            # 正規表現でURL->名前変換
            my $refname = $REFERER[$j];
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( $refname =~ /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ($fg == 0 && exists($urlname{$REFERER[$j]})) {
                $refname = $urlname{$REFERER[$j]};
            }

比較用の記述ファイル。conf/url_map_regexp.txt。

b.hatena.ne.jp/keyword/(.*)$ はてブ:キーワード

正規表現部分と、名前を、スペースで区切って記述。後方参照用に1箇所だけ確保。

考えてみると、referer {} と recent_ref {} で、2回比較を行ってるんだな…。1回処理した結果をどこかに保存して、とかやれば、単純計算で、半分の処理時間で済みそうな。いや、それだとメモリを大量に使ってしまって、結局時間がかかってしまうかしら。

そもそも、どこらへんが処理速度のネックになってるんだろう。そこからしてよくわかってない。＞自分。

これを、実際に変数が使われるブロックの中で宣言するようにしたら、多少は速度的に改善されたりしないだろうか。Cなんかだとレジスタの活用等に繋がる云々、なんて話が大昔はあったような記憶もあるし。と思ったが、スクリプト実行に先立ってコンパイル(ていうのかこの場合?)する際に最適化がされていて、その手の改変はあんまり関係なかったりする可能性もあるな。というかそのぐらいのことはしてそうな気もする。＞Perl。