検索

• [ Prev ]
• [ Next ]
• [ Perl ]

• @INCをスクリプトで調整し、任意のディレクトリの.pmファイルをuseできるようにしてみる。
• <= Perl 5.8

• ./manip_inc01.pl

#!/usr/bin/perl

use strict;
use warnings;
use File::Basename;

# adjustment for include path (terminate with path separator)
BEGIN {
    my (undef, $__base_dir, undef) = fileparse($0); # File::Basename
    push(@INC, $__base_dir);
}

use test::Test1;

print $test::Test1::msg, "\n";

• ./test/Test1.pm

package test::Test1;

use strict;
use warnings;

our $msg = "Hello, test::Test1!";

• 出力

$ perl ./manip_inc01.pl
Hello, test::Test1!

• ポイント：File::Basename::fileparseで取得できる、スクリプトファイル自身($0)のディレクトリを、BEGINブロックで@INCにpushしている。
• PHPの擬似コードだと次の様になる。

<?php
$__basedir = realpath(dirname(__FILE__));
set_ini("include_path", get_ini("include_path").PATH_SEPARATOR.$__basedir);
...

• ちなみに、デフォルトでは"."が最初から@INCに入っている場合もあるので、適宜利用し、かつ混乱しないこと。

• [ Prev ]
• [ Next ]
• [ Perl ]

• [ Prev ]
• [ Next ]
• [ Perl ]

Perlでのファイルのロック方法メモ

• 基本は flock 。但し、ここで使用するLOCK_SH, LOCK_EX, LOCK_UN, LOCK_NBは、

use Fcntl(:flock);
or
use Fcntl(:DEAFULT :flock);

しておく必要がある。FcntlはシステムのCライブラリのfcntl.hをh2xsで取り込んで利用できるようにしてくれたモジュール。基本的に#defineされたものが取り込まれている。

• :DEFAULT を指定すると、F_*, O_* 系列をデフォルトでEXPORTしてくれる。他に :flock, :seek, :mode なども指定できる。
• flockはファイルハンドルのみを扱える。ネットワークソケットなど、Cの世界で言うところのファイルディスクリプタを生で取り扱うシーンでは、Cと同様に fcntl を使用する。
• NFSを除くファイルシステムでのファイルのロックでは、flockで充当する。NFSにおいてはfcntlを行う必要があるらしい。これはLinuxのCレイヤーの現象らしい。

以下、参考。

• Linux Man Page
  • http://www.linux.or.jp/JM/html/LDP_man-pages/man2/flock.2.html
  • http://www.linux.or.jp/JM/html/LDP_man-pages/man2/fcntl.2.html
• perldoc
  • flock: http://perldoc.perl.org/functions/flock.html
  • Core Module, Fcntl: http://perldoc.perl.org/Fcntl.html
  • fnctl: http://perldoc.perl.org/functions/fcntl.html

Perlのflockは"advisory"ロックである点に要注意

flockのperldocにもしっかり太字で記載されていますが、Perlのflockは"advisory"ロックです。つまり、flockを使用しているもの同士であればロックは機能しますが、flockを使用せずに読み書きを行うプロセスに対しては機能しません。

実際、下のコードピースを使うと明らかです。コードピース同士でのロックは、同じflockを使用しているので、排他ロックは「その通りに」動作します。（戻り値がそのように見えます。）

しかしechoやviなどの読み書きプロセスと同時に動かして実験してみると、Perl側でLOCK_EXをかけているのに、echoシェルリダイレクトでファイルに書き込めますし、viの編集も何の問題もなく上書き保存可能です。

Perl同士でしか読み書きしないCGIのロックファイルについては有効ですが、別のプログラミング言語やプログラムなどで同時に読み書きするときは、Perlのflockが機能しない場合も有る点に注意が必要です。

コードピース(LOCK_{SH|EX|UN|NB}の実験)

標準入力からLOCK_*を受付け、コマンドラインで指定されたファイルに対してflock操作を行う。
異なる端末から二つ以上立ち上げていろいろ遊んでみる事を想定。
ここではローカルファイルシステム上のファイルをロック・アンロックする実験を行いたい為、flockで問題ない。

ファイルロックの他に、標準入力からのreadlineやswitch構文、他参考リンク。

• IO::File : http://perldoc.perl.org/IO/File.html
• readline(), <> : http://perldoc.perl.org/functions/readline.html
• switch() : http://perldoc.perl.org/Switch.html
• http://blog.livedoor.jp/dankogai/archives/50780781.html

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Switch;
use Fcntl qw(:flock);

if(@ARGV < 1) {
	die "usage: $0 <lock_file>\n";
}

my $file = $ARGV[0];
my $lock_nb = 0;

if(! -e $file ) {
	die "$file is not exist!\n";
}
print "Lock target file is '$file'.\n";

## 通常のファイルハンドルを使用した書き方
# open my $fh, "<$file" or die "Open failure '$file'.($!)\n";

## IO::Fileを用いた書き方
my $fh = IO::File->new("+<$file");
# エラーハンドリングは$fhがdefinedか否かで判別する。
# エラーコードはシステムのerrnoなので $! を参照する。
die "Open file failure '$file' ($!).\n" unless defined($fh);

sub help {
	my ($msg) = @_;
	print "unrecognized statement: $msg\n";
	print "statement are: LOCK_SH, LOCK_EX, LOCK_UN, LOCK_NB.\n";
	print "(LOCK_NB switches LOCK_NB mode.)\n";
}

my $line = undef;
for(;;) {
	undef $!;
	unless (defined($line = <STDIN>)) {
		# if reached EOF, break loop.
		die $! if $!;
		last;
	}

	if($line !~ /^([A-Z_]+)/ ) {
		&help($line);
		next;
	}

	switch($1) {
		my $ret = 0;
		case "LOCK_SH" {
			$ret = flock($fh, LOCK_SH | $lock_nb);
			print "LOCK_SH results $ret.\n";
		}
		case "LOCK_EX" {
			$ret = flock($fh, LOCK_EX | $lock_nb);
			print "LOCK_EX results $ret.\n";
		}
		case "LOCK_UN" {
			$ret = flock($fh, LOCK_UN);
			print "LOCK_UN results $ret.\n";
		}
		case "LOCK_NB" {
			$lock_nb = ($lock_nb) ? 0 : LOCK_NB;
			print "LOCK_NB is ". (($lock_nb) ? "ON" : "OFF") . ".\n";
		}
		else {
			&help($1);
		}
	}
}
# open my $fh の場合
#close $fh;
# IO::File の場合
$fh->close;

• [ Prev ]
• [ Next ]
• [ Perl ]

• [ Prev ]
• [ Next ]
• [ Perl ]

外部パッケージの未定義関数呼び出しはどういうエラーになるか。

JavaはC++はコンパイル時にinterfaceをチェックしてくれる。しかし、実行時にコンパイルされるPerlやPHPなどのスクリプティング言語の場合、interfaceが実装されていることの確認も実行時である。そのため、特に動的なローディングを用いている場合、本当にinterface、Perlの場合はサブルーチンが実装されているのか。実装されていない場合、どういう状況になるのかを前もって確認しておきたい。

• コードピース
  • test03.pl

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

BEGIN {
	my (undef, $__base_dir, undef) = fileparse($0);
	push(@INC, $__base_dir);
}

use Hoge::Moge;
print __PACKAGE__, " - 1\n";
&Hoge::Moge::moge();
print __PACKAGE__, " - 2\n";

• • Hoge/Moge.pm (空っぽのパッケージ)

package Hoge::Moge;
use strict;
use warnings;
1;
__END__

• 出力：コンパイル時

$ perl -c ./test03.pl
test03.pl syntax OK

• 出力：実行時

$ ./test03.pl
main - 1
Undefined subroutine &Hoge::Moge::moge called at test03.pl line 16.

このように、やはりコンパイル時はチェックされず、実行時に初めてチェックされ、エラーとなることが確認できた。

use interface (http://search.cpan.org/~swalters/interface-0.02/interface.pm)を使用すれば、コンパイル時にもチェックできるらしいが、BUGSには「Damian Conwayの書いたコードの殆どで動かない」とか、「mainパッケージには適用できない」とか書いてあって、一歩引いてしまう。

まあ、いくらコンパイル時にチェックできても、結局はそれも実行時ではあるので(*1)、まあ、これは しょうがないので諦める というのも一つの手である。
・・・これ、%SIG{DIE}で拾えないのかなあ？try-catchの実験の時に、リベンジしてみよう。

• [ Prev ]
• [ Next ]
• [ Perl ]

• [ Prev ]
• [ Next ]
• [ Perl ]

• 配列の要素を数えるには何通りか有る。
• しかし、"$#ary"は、 エディタが#以降をコメントとして色分けしてしまう。
• というわけで、それ以外の方法にトライしてみた。

• コードピース

#!/usr/bin/perl
use Data::Dumper;

my @ary = (1, 2, 3, 4);
print Dumper(@ary), "\n";

# 一昔前の入門書で見かけた配列サイズの取得方法。
# 正確にはサイズでなく、最後の添字を返す。
print "count = ", $#ary, "\n";

# PerlのCOP(Context Oriented Programming)を活かしたサイズの取得方法。
# Perlが勝手にスカラーに直す。このとき、Perl側で良い案配に配列サイズとして
# 評価してくれる。
$sz = @ary;
print "count = $sz\n";

print '4 > @ary = ', (4 > @ary), "\n";
print '4 == @ary = ', (4 == @ary), "\n";
print '4 < @ary = ', (4 < @ary), "\n";
print "\n";

# COPのおかげで、違和感のない見栄え。
for(my $i = 0; $i < @ary; $i++) {
	print @ary[$i], "\n";
}
print "\n";

foreach my $i (@ary) {
	print $i, "\n";
}

• 出力

$VAR1 = 1;
$VAR2 = 2;
$VAR3 = 3;
$VAR4 = 4;

count = 3
count = 4
4 > @ary =
4 == @ary = 1
4 < @ary =

1
2
3
4

1
2
3
4

Perlのコンテキスト判別のおかげで、エディタにとっても優しい書き方ができた。

• [ Prev ]
• [ Next ]
• [ Perl ]

• [ Prev ]
• [ Next ]
• [ Perl ]

PerlのOOPについてのメモ。

いろんなモジュールが公開されているが、2006 - 2007 の現状の潮流としては、Catalystが使用しているClass::Data::Inheritable, Class::Accessor など、というのと、Class::Std系列と、その他、の３種類くらいになっているようだ。

それぞれオブジェクト指向の要求に対する内部実装が違う為、相互共存できるのかは不安。

変数の内部隠蔽を徹底するのであればClass::Stdを用いることになるかも知れない。
内部隠蔽が徹底されなくとも良いので、Data::Dumperで普通にダンプできるクラスを、簡単に継承したいのであればCatalyst系の組み合わせになるのかも知れない。

いずれにしても、各モジュールは未実験。

• Class::Std
  • http://search.cpan.org/~dconway/Class-Std-v0.0.8/lib/Class/Std.pm
  • Damian Conway 直筆の、"Inside-Out"変数の作成用モジュール。
  • Perlはパッケージ変数に公開レベル(public, private, protectedなど)を指定できない。Class::Stdはlexical変数を活用して"blessed reference(オブジェクト)に紐付けて変数を隠蔽"してくれる。
  • 但し、以下のモジュールと相互共存可能かは不明。
  • また、内部的に変数やデータを特殊な方法で格納する為、Data::Dumperなどが使えなくなる、らしい。
• Class::Accessor
  • http://search.cpan.org/~kasei/Class-Accessor-0.30/lib/Class/Accessor.pm
  • Perl風味で setter/getter を簡単に作れる関数を提供してくれる。
  • 以下のような何種類かの亜種が生まれている。
  • Class::Accessor::Fast
    • http://search.cpan.org/~kasei/Class-Accessor-0.30/lib/Class/Accessor/Fast.pm
    • 若干の内部機能をそぎ落とし、スピード重視にしたバージョン
  • Class::Accessor::Grouped
    • http://search.cpan.org/~claco/Class-Accessor-Grouped-0.03/lib/Class/Accessor/Grouped.pm
  • Class::Accessor::Lvalue
    • http://search.cpan.org/~rclamp/Class-Accessor-Lvalue-0.11/lib/Class/Accessor/Lvalue.pm
    • 左辺値代入をsetterでできるようにしてくれるらしい。
• Class::Data::Inheritable
  • http://search.cpan.org/~tmtm/Class-Data-Inheritable-0.06/lib/Class/Data/Inheritable.pm
  • クラスのメンバ変数の継承を簡単にしてくれるモジュール。Perlだとそこがちょっと弱点だったから。
  • 他に、Class::Data::Inheritable::Transulucentなど何種類か亜種が生まれている。
• Class::Data::Accessor
  • http://search.cpan.org/~claco/Class-Data-Accessor-0.03/lib/Class/Data/Accessor.pm
  • Class::Accessor と Class::Data::Inheritable の合わせ技。
• NEXT.pm
  • http://search.cpan.org/~dconway/NEXT-0.60/lib/NEXT.pm
  • 継承が行われているときの、メソッドディスパッチャ(?)。同じ名前のサブルーチンが継承関係にあるパッケージで重複して定義されている場合、これを使うと、親子関係を辿って順繰りに呼び出すことも可能・・・らしい。
• Class::C3
  • http://search.cpan.org/~blblack/Class-C3-0.14/lib/Class/C3.pm
  • NEXTの仲間で、探索ロジックが異なる・・・らしい。
• Class::Mixin
  • http://search.cpan.org/~stathy/Class-Mixin-0.01/Mixin.pm
  • その場で@ISAを操作してその場でMixinクラスを生成してくれるようである。
  • コンストラクタの探索はどうなるのか？や、そもそも使い道が上手く想像できない・・・が、作者が居る以上、需要はあったのだろう。

• [ Prev ]
• [ Next ]
• [ Perl ]

Creative Commons でPDFダウンロード可能。すごい。

• Linux Kernel in a Nutshell
  • http://www.kroah.com/lkn/

過去のPukiWiki日記では 2005年11月01日の日記に書き留めていた記事。

• 開発現場の天国と地獄 第5回
  • http://www.atmarkit.co.jp/farc/rensai/heaven05/heaven05a.html
• 開発現場の天国と地獄 第6回
  • http://www.atmarkit.co.jp/farc/rensai/heaven06/heaven06a.html

当時の日記では、人員の適材適所の配置やフレームワークなどの基礎部分を手作りした点に感銘を受けていた。
今改めて読み直してみると、3年も前の記事なのに古さが全く感じられない。

・・・っていうか、先日ヘルプにピンポイントで放り込まれた現場がまさにこれの正反対。
まぁ基幹システムとの結合とかじゃなくて、お役所/一般公開共用のWebシステムなんだけど。

我ながら恥ずかしい話で、3年前の記事が未だに参考になるということは、3年前にこの記事を読んでおきながら、現場への適用をさぼっていたということで、情けない。

PHPメモリ管理の参考記事。

"Extending and Embedding PHP"( http://www.informit.com/store/product.aspx?isbn=067232704X )の著者である Sara Golemon による2006/07時点でのPHPメモリ管理の内部挙動解説。

http://www.informit.com/articles/article.aspx?p=516587

大変参考になる。

PerlからINIファイルを読み取らせてみるためにCPANを探してみる。

• http://search.cpan.org/~gcarls/Config-IniFiles-2.39/IniFiles.pm
• http://search.cpan.org/~sherzodr/Config-Simple-4.58/Simple.pm

とか。

Log4perlとか。

• http://search.cpan.org/~mschilli/Log-Log4perl-1.02/

Perlでメール送信しようと思った。で、メール本文で変数を埋め込みたい。
PHPでやるなら、Smartyでfetchしたのをmb_convert_encodingでISO-2022-JPに変換して、それをBODYに詰めるところなんだけど、Perlでそういったテンプレートは無いかと探す。

Template-Toolkitというのが、CatalystというPerlのMVC(というよりはRuby on Rails系？)のフレームワークでも利用されている様で、Name Valueが便利そうなのでこれにするか。

• http://search.cpan.org/~abw/Template-Toolkit-2.14/lib/Template.pm

あと、DBのインターフェイスをまともにしたい・・・。というわけで、DBI/DBDを勉強してみたい。

• http://ash.jp/db/dbi_dbd.htm
• http://ash.jp/db/pg_dbi.htm
• http://www.atmarkit.co.jp/flinux/rensai/mysql04/mysql04a.html