世の中すっかりクリスマスモードですが、いかがお過ごしでしょうか? 謎の人です。こんにちわ。3G iPod nano をくれる人が私のサンタさん☆ 前回 Sleipnir.API をちょっとだけ気軽に使える方法を。。。考えておきます。 とお約束しましたので、簡単な Perl モジュールをでっちあげ準備中ですよ。 目的は、前回の nazo_showExif.pl の my $s = new Win32::OLE('Sleipnir.API'); my $doc_id = $s->GetDocumentID($s->ActiveIndex); my $img = $s->GetWindowObject($doc_id)->event->srcElement; みたいなのは、 my $s = Sleipnir->new; my $img = $s->event->srcElement; とシンプル