ゆきのぶ日記

2008/08/02(Sat) [長年日記]

■ [PC] ATOK と DropMyRights の相性

ATOK 2005 を使ってる環境で DropMyRights を使うと、DropMyRights 経由で起動したアプリケーション上で漢字変換ができなくなってしまう事があるようだ。エラーメッセージとしては「辞書ファイルが見つかりません」とのこと。

「オンメモリ辞書」を設定しておき。DropMyRights を経由していないアプリケーション上で適当に漢字変換を行うと、以後 OS 再起動までは、この問題は回避できる模様。なんともアドホックではあるが。

最新の ATOK では解決しているんなら、そろそろ更新したいなぁ。

[ツッコミを入れる]

2008/08/04(Mon) [長年日記]

■ [Perl] Crypt::SSLeay のインストールメモ

WWW::Mechanize で SSL 通信をするときに必要になる Crypt::SSLeay モジュールのインストールメモ。

今回の対象は ActivePerl 5.8.8 Build 820 だったので ppm でインストール。下記のコマンドでうまくいった。

ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

ssleay32.dll については、特に必要なかった。

Fetch ssleay32.dll? [no]
Aborting download of ssleay32.dll.

なお、cmd.exe 上からはすんなり行くけど、cygwin の bash 上からでは下記のエラーとなり、ダメだった。

Can't locate ActivePerl/PPM/limited_inc.pm in @INC

以上、やる度に一から調べている気がするので、ここにメモ。

■ [Perl] 正規表現マッチを一行で

正規表現で文字列を取り出して変数に代入するような時、下のように数行で書いていた。

my $code;
if( decode('shiftjis',$mech->content) =~ /code=([\d\w]+)/ ) {
  $code = $1;
}

もっと省略したいと思って色々やってみたが、下のようにすると一行で書けるようだ。カンマ演算子の左結合がポイント。

my $code = ( decode('shiftjis',$mech->content) =~ /code=([\d\w]+)/, $1 );

しかしこの方法も、リストコンテキストで評価される時にはうまく動かない（下の場合だと、key と value の関係が意図したとおりにならない）。

my $codes = {
  code1 => ( decode('shiftjis',$mech->content) =~ /code1=([\d\w]+)/, $1 ),
  code2 => ( decode('shiftjis',$mech->content) =~ /code2=([\d\w]+)/, $1 ),
};

~~こんな時にも、scalar をつけると、意図したように動くようになった。~~

my $codes = {
  code1 => scalar ( decode('shiftjis',$mech->content) =~ /code1=([\d\w]+)/, $1 ),
  code2 => scalar ( decode('shiftjis',$mech->content) =~ /code2=([\d\w]+)/, $1 ),
};

いや、やっぱりダメなようだ。あとで考える。

追記

頂いたコメントを参考に、下記のように書いたら、意図したとおりに動くようになった。

my $codes = {
  code1 => (decode('shiftjis',$mech->content) =~ /code1=([\d\w]+)/)[0],
  code2 => (decode('shiftjis',$mech->content) =~ /code2=([\d\w]+)/)[0],
};

調べてみると、リストコンテキストでパターンマッチを行った場合には、結果がリストとして返されるようだ。今回はその 0 番目の要素を抽出することで、意図したとおりの動きになった模様。

しかしこの方法も、マッチ対象がなかった場合には、key と value の関係が崩れてしまうようなので、注意して使いたい。

drry さん、ありがとうございました。

本日のツッコミ(全3件) [ツッコミを入れる]

● drry [my $codes = { code1 => (decode('shiftjis', $mech->content)..]

● ゆきのぶ [ありがとうございました！追記しました！]

● joan [my $code = decode('shiftjis',$mech->content) =~ /code=(\w+..]