2008-05-05 $0 Perl 別のスクリプトからライブラリとしてrequireされてるときは何もしないで、単体のスクリプトとして実行されてるときだけ処理したいコードがあったので、$0を読んでみる。$0には実行してるスクリプト名が入ってるので、それを確認してやればok # foo.pl if ($0 =~ m/foo.pl$/) { # perl foo.plで実行したときはこのif文の中に入る。 # bar.plからrequire 'foo.pl'してるときは素通り。 ... }