「Windowsで英語キーボードを使いたい！」では、Windowsに於いてキー配列をカスタマイズするソフト（というと語弊があるが）「AutoHotkey」について書いた。Mac OS Xで同じようなことをするソフトはこれだ。
KeyRemap4MacBook
http://pqrs.org/macosx/keyremap4macbook/index.html.ja
名前は「MacBook」だけど、他のMacでも使える。一例を挙げると、右Option(⌥)一つで日本語入力をON/OFFできたり（AXキーボード風）、装飾キー + KJHLで上下左右に動けたり（Vi厨歓喜）など、全部で600種類以上の便利なカスタマイズが満載だ。
更に自分独自のキーマップを登録できる。そのやり方も書いておこう。
MooseX::Getoptを使ってCUIアプリを作るとき、ロールに含まれるアトリビュートがコマンドラインオプションと化してしまうので困っていた。例えばこんな感じ。
#!/usr/bin/perl
{
package MyApp::Role;
use Moose::Role;
has attr1 => ( is => "ro", default => 5 );
1;
}
{
package MyApp::CUI;
use Moose;
with qw!
MyApp::Role
MooseX::Getopt
!;
has opt1 => ( is => "ro", required => 1 );
sub run { my $self = shift;
print "attr1 => " . $self->attr1 . "\n";
print "opt1 => " . $self->opt1 . "\n";
}
__PACKAGE__->meta->make_immutable;
}
MyApp::CUI->new_with_options->run;
$ perl test.pl
Required option missing: opt1
usage: test.pl [long options...]
--opt1
--attr1
オプションにしたいのはopt1だけで、attr1はユーザーに見せたくない。一応、こういう時のために使うメタクラスが用意されている1。
現在では mteval を使った方法が推奨されています → こちら
エントリーの中に以前のエントリーへのリンクを貼りたいことがよくある。そう思ってエントリーへのリンクを生成するタグをエントリー本文に書いても無視されてしまう。そんなときに使うのがこれだ。
エントリーやウェブページ内でMTタグが使えるプラグイン:Templatize | Movable Typeプラグイン | MTエンジニアブログ | スカイアークシステム
http://www.skyarc.co.jp/engineerblog/entry/3969.html
ダウンロードして出てきた「Templatize.pl」を「mt/plugins」にコピーするだけだ。
$ unzip Templatize.zip $ cp Templatize.pl ~/Sites/mt/plugins
プラグインを有効にするには、該当するタグにアトリビュートを付ける。具体的には各店プレートに於いて次のように書けばいい。
<$mt:EntryBody templatize="all"$> <$mt:EntryMore templatize="all"$>
英語キーボードが好きだ。キートップにひらがなが載っていないのでシンプルだし、スペース“キー”ではなくスペース“バー”がど真ん中に鎮座ましましているのがいい。配列だって
みたいに、規則的で覚えやすいと思わない？ そうでもない？ というわけで、昔からHappy Hacking KeyboardとかRealForce英語配列版とかを使い続けている。
自分だけで使うPCならそれで良かったのだが、会社や家族で共用して使うPCだとうまくいかなくなる。WindowsというOSは再起動なしにキー配列を変えることが出来ないという困った仕様なので、自分の使うときだけキーボードをつなぎ替えるような、勝手なことは出来ないのだ1。これは誰しも悩むことのようで、解決してくれるソフトも販売されている。
PerlからMicrosoft SQL Serverにアクセスする場合、WindowsではOS標準のODBC機能（コントロールパネル→管理ツールから設定する）＋DBD::ODBCが使える。
#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect(
"dbi:ODBC:Driver={SQL Server};"
. "Server=サーバのIPアドレス;"
. "database=データベース名;"
. "uid=ユーザー名;"
. "pwd=パスワード;" );
しかし、Unix系OSではこの手は使えない。unixODBCとFreeTDSという2つのソフトを介して接続することになる。
Milano::Monolog: unixODBC+FreeTDS+DBD::ODBCでSQL Serverに接続する
http://rebecca.ac/milano/mt/archives/001412.htmlunixODBC
http://www.unixodbc.org/FreeTDS.org
http://www.freetds.org/
Excel 2007形式（XLSX）のファイルをPerlで扱う必要があったので調べてみると、「Spreadsheet::XLSX」というモジュールを見付けた。
Spreadsheet::XLSX – search.cpan.org
http://search.cpan.org/~dmow/Spreadsheet-XLSX-0.12/lib/Spreadsheet/XLSX.pm
そして次のようにXLSX形式のファイルを用意してスクリプトを実行してみたのだが、セルの値にフリガナがくっついて表示されてしまう1。
#!/usr/bin/perl -l
use Spreadsheet::XLSX;
my $excel = Spreadsheet::XLSX->new( "Book1.xlsx" );
my $sheet = $excel->{Worksheet}[0];
print $sheet->{Cells}[0][0]{Val};
$ perl readexcel.pl 文字列モジレツ
XLSX形式についてよく知らなかったのでまずはそこから調べてみた。
Windows + PerlでGUIアプリを作る手段はいくつかあるが、一番手頃で機能もそれなりなのがWin32::GUIを使うことだ。
Win32::GUI at SourceForge
http://perl-win32-gui.sourceforge.net/cgi-bin/index.cgi
ただ、これにはGUIビルダが付いていない。GUIの構築はあくまでスクリプト上で行わねばならないのが辛いところ。それを解決してくれるツールがThe GUI Loftだ。
The GUI Loft
http://www.darserman.com/Perl/Loft/
遙か5年以上前から更新が停止してるのがなんだかもの悲しいが、その分安定してるのだと考えよう。実際に最新のActivePerl 5.10.1 + Windows7環境でも問題なく動くのだから。