ありし日の気分(改)

● ちょっとだけPerl

掲示板の方での広告投稿が多いので、対策を。

という訳で掲示板(自分で書いたんじゃないです)のソースを眺めました。PtPt形式に対応させて以来だから久し振りです。やりたかった事は投稿不許可単語(というか正規表現)を登録できる仕組みでしたが、やっぱりはまってしまいました。まず配列変数のつもりで $deny_word とか書いて、あれ〜? って感じで。ああ、@deny_word でいいのかと思ったけど そもそもスカラー変数に正規表現代入していいのかって事で悩んでみたり。Rubyなら正規表現もオブジェクトなんで当然変数に代入できる訳ですが。で、コマンドラインでperl動かして試してみて、大丈夫そうだったのでCGIの方も変更してみたらうまくいかないっぽかったです。本当は正規表現の配列を @deny_word に代入って事もできるのかも知れないのですが、そこまで時間かける事じゃないとわりきり。

で、結局正規表現中の変数展開の動きをコマンドラインで確認しつつ、@deny_word には「正規表現を生成する文字列達からなる配列」を代入して、foreach my $word (@deny_word) {if ($hoge =~ /$word/i) ... という感じでやっつけました。

慣れの問題なんでしょうねー。

● Carbide.C++もちょびっと

S60 2nd EditionのSDKとCarbide.C++で helloworld をビルド、702NKで動かしてみるところまでやってみて、思い出しておきました。

でもそんだけです。(泣)