戯術者の日記

login()の失敗などは、デフォルトで 'die' を行っているため、他の処理を行い
たい(ログファイルにイベントを出力して終了とか)場合は、ErrMode を変更す
る必要がある。
(A) new する際に、Errmode を指定する

$a = Net::Telnet->new(Timeout => 10, Errmode => "return");

(B) new した後に、Errmode を変更する。

$a->errmode("return");

以上で、

$return = $telnet->login('user', 'pass');

が失敗した際は、$return は undef になる。(成功時はErrmodeに関係なく1)

localtime 実行前に、

use POSIX 'tzset';
tzset();

を行っておく。
http://www.cygwin.com/ml/cygwin/2004-03/msg00866.html

% perl -c script.pl

コンパイルのみ行い、実行はしない。
-w と併用も可能
正常なものは syntax OK と表示される。
1行目に #!/usr/bin/perl などがあっても実行はされない。

print "Content-type: application/octet-stream\n\n";
open(F, "gazou.xxx");
binmode(F);
print while(<F>);
close(F);

while( ) {
	if ($pid[$i] = fork) {
		親(何もしない)
	} elsif (defined $pid[$i]) {
		子(並列処理)
		exit;
	} else {
		fork失敗
	}
}
foreach(@pid) { # 子のwait  ("wait"ではダメ(子が一つ終了すると抜ける))
	$cpid = waitpid $_, 0;
}
exit;

配列・リストを渡す。
もしくは、

unlink </foo/bar/*>

use lib "/path/to";

変数に格納されたパスはなぜか無効…

use lib "$path";   <= NG

また、require 先で use lib を宣言し、呼出元で use Path::Module; も無効
require 先で use lib -> use Path::Module をまとめてやっておけばよい

変数が無効なのは、use はコンパイル時に読み込まれるため。変数に値が格納さ
れるのは実行時

while( ) {
	if ($pid = fork) {
		# おや
		next;
	} else {
		# こ
		(並列処理)
		exit;
	}
}
(子を待たずに処理)

http://www.ichikoro.com/webp/bk/00055.html
http://ns1.php.gr.jp/pipermail/php-users/2004-January/020410.html

{
	open(F, "file");
	$lock = flock(F, (LOCK_EX | LOCK_NB));
	unless ($lock) { print "ロック中！終了します\n"; exit 1;}
}

こんな感じ

use Fcntl qw(:flock);

がないと、動かん
SunOS 5.8

と思ったけど、前言撤回
"LOCK_EX"などの文字定数を使う場合は、Fcntlが必要
"2"など定数を直接指定してやれば不要

$ perl -p -i.bak -e 's/strings/strings-with/g' *