おいぬま日報(不定期)

@ [linux] ブート不可

メインで使ってるDebianマシンのkernelを2.4.27にしたら起動できなくなってしまった。今まで使っていたkernelは削除してしまったし、どうしよう。。。

@ [perl] qr演算子

Perlでqrといういわゆる正規表現のパターンを生成する演算子があるのですが、これをrefしてみると'Regexp'というものが返ってくることを今日始めて知りました。

$ perl -e 'print ref(qr/hoge/),"\n"';
--> Regexp

これを利用すると

#!/usr/bin/perl
 
my @list = ('/index.html', qr#^/abc#, qr#^xyz#);
 
for my $pattern (@list) {
    if (ref($pattern) eq 'Regexp') {
        if ($ENV{REQUEST_URI} =~ $pattern) {
            ...
        }
    }
    else {
        if ($ENV{REQUEST_URI} eq $patern) {
            ...
        }
    }
}

みたいな感じで正規表現による部分一致とeqによる完全一致をごちゃまぜにリストに突っ込んでおけるのでちょっとだけ便利。