Perl on dyama's page

Draw Test Harness 日本語 Wiki 作りました

Wed, 13 Nov 2013 22:53:07 +0900

OpenCASCADE の Draw Test Harness の(ほぼ自分用の)日本語 Wiki を立ち上げるために、以前自分の個人サイトでも利用していた UseMod Wiki を導入することにしました。

UseMode Wiki は、Perl で書かれたシンプルな Wiki システムで、煩雑な設定が少なく、依存関係も少ないので重宝していました。基本部は wiki.pl に全て詰まっており、設定ファイルも一つだけ。
見た目に凝ったり、いろんなことをしようと思えば MediaWiki なんかが良いのでしょうが、そんなに時間も割きたくない、簡単な Wiki 構文が使えればいい、程度でしたら、なかなかオススメの Wiki エンジンです。

Bash, Perl, Ruby, Pythonで正規表現置換

Tue, 23 Oct 2012 23:35:38 +0900

前回のC++/boost、.NETに加え、各種インタプリタ言語でも同じ動作をするスクリプトを書いてみました。

シェルスクリプト(bash)

シェルスクリプトはそもそもグルー言語ですので、他のコマンドを呼び出して処理をすることが一般的です。下のサンプルではsedコマンドで置換処理をしています。bashだと正規表現マッチングは可能なので、ガリガリとスクリプトを書けばsedを使わずに実現できるかもしれません。

Net::POP3でメール受信

Mon, 09 Jan 2012 00:00:57 +0900

PerlのNet::POP2モジュールを利用したメール受信のサンプルです。このスクリプトをcronに登録し、定期的にメールボックスを確認させて、何かあったらコマンドを実行。なんて用途に使えます。パスワードも平文でのっけているので、セキュリティ的な注意は必要かと思います。

bsplinecurve コマンド引数( knot 値)を相互変換

Sat, 20 Aug 2011 00:00:04 +0900

NURBS 曲線の knot 値( Bスプライン基底関数を決定する為の値 )は、一般的に下記のように ( 階数 + 制御点数 ) 個の単調増加する配列として表されます。

T = [ 0 0 0 0 1 2 3 3 3 3 ]

一方、OpenCASCADE Draw Test Harness の bsplinecurve コマンドにて上に示す knot 値を持つ NURBS 曲線を生成するには、下記のように指定する必要があります。

POE::Component::IRC で遊ぶ

Wed, 13 Apr 2011 00:00:18 +0900

Perl の IRC モジュールと言えば、ちょっと前まで Net::IRC だと思っていたが、久しく cpan でそいつをインストールしようとすると、

時代遅れだから POE::Component::IRC を使っちゃいなー ! “

と言われた。

イベントドリブンな IRC クライアントを書く為のモジュールで、PING/PONG の自動応答など、IRC セッションを裏で面倒見てくれる便利なモジュールらしい。

Perlでバーコード・QRコード画像を生成する

Sun, 02 Jan 2011 00:00:00 +0900

Perl でバーコードやQRコードの画像を出力したい場合、GDモジュールのサブセットにそれらの画像を生成するモジュールが提供されています。

インストール

sudo aptitude install libgd-barcode-perl

使用方法

バーコード

#!/usr/bin/env perl
use GD::Barcode::UPCE;
binmode(STDOUT);
print "Content-Type: image/png\n\n";
# バーコードを表示
print GD::Barcode->new('EAN13', '123456789012')->plot->png;

QRコード

#!/usr/bin/env perl
use GD::Barcode::QRcode;
binmode(STDOUT);
print "Content-Type: image/png\n\n";
# QR コードを表示
print GD::Barcode::QRcode->new('This is test',
{ Ecc=>'M', Version=>3, ModuleSize=>2 })->plot->png;

参照

GD::Barcode – GDでバーコード・イメージを作成します【perldoc.jp】

ActivePerl に SDL モジュールをインストールした

Wed, 03 Nov 2010 00:00:00 +0900

確かに SDL を perl で使う人は見たことがない

正直日記

最近はどのデスクトップ用途のディストリにも必ずプリインストールされている程、システムと密接になっている Perl なんだけれども、その Perl を使って、GUI なソフトウェアをごにょごにょしようという動きは、ホント少ない気がする。単純な事をやりたいだけなのに、やれPythonだ、rubyだ、javaだ、と。

jheadコマンドを使った簡易ギャラリー

Wed, 27 Oct 2010 00:00:00 +0900

jhead はデジカメなどで撮影した画像などに含まれる EXIF 情報を表示してくれるコマンド。debian 系 OS でのインストールは以下のようにする。数百キロバイト程度なのですぐ終わる。