No.2ベストアンサー
- 回答日時:
自前のsystemであるmysystemを自作します。
これは、第1引数にタイムアウト時間(秒)を取り、
第2引数以降は、systemを呼び出すときのパラメータの集合をとります。
mysystemの戻り値は
-1:fork失敗(通常あり得ない)
-2:タイムアウト(第1引数で指定された時間内にコマンドが終了しなかった)
255:execエラー(第2引数以降が正しくないのでコマンドとして実行できない)(但し、この仕様は255を終了ステータスで返すコマンドがあるとそのステータスと区別ができない、ということがあるが、まず、これが問題になることはないだろうという前提で作成。対策が無いわけではないが、ソースが複雑になるので、とりあえず、簡易版)
とします。
以下ソースです。
------------------------------------------
#! /usr/bin/perl
$stime = time();
$result = &mysystem(60,@ARGV);
$etime = time();
printf ("result=%d,excuted time=%d\n",$result,$etime-$stime);
#自前のsystem
# P1:タイムアウト時間(単位:秒)
# P2:systemへ渡す文字列
# 戻り値: -1:fork error
# 255:exec error(コマンド文字列不正)
# -2:timeout
# 以外:コマンドの終了ステータス
sub mysystem
{
use POSIX qw( SIGKILL );
my $timeout = shift(@_); #タイムアウト時間
my @cmd = @_; #コマンドリスト
my $pid = fork();
# fork失敗
if (!defined($pid)){
return -1;
}
#子プロセスの場合
if ($pid == 0){
exec(@cmd);
# execが成功すれば戻ってこない
# 下記の文が実行されるのはexec失敗の場合だけ
exit(255);
}
#親プロセスの場合
while($timeout>0){
#my $ret = POSIX::waitpid($pid,&POSIX::WNOHANG);
my $ret = waitpid($pid,&POSIX::WNOHANG);
#プロセス終了時(プロセスの終了ステータスは$?に格納されている)
if ($ret != 0){
#プロセスの終了ステータスを返す
printf("ret=%d,pid=%d,sts=%d\n",$ret,$pid,$?);
return ($?/256);
}
# プロセスが終了していない場合1秒待つ
$timeout--;
sleep(1);
}
#タイムアウト検出時
#子プロセスをKILLする
kill(SIGKILL,$pid);
#殺した子プロセスをみとる(成仏させる)
waitpid($pid,0);
# タイムアウトで終了
return -2;
}
------------------------------------------
上記のスクリプトをsampl.plで保存し、
sampl.pl 実行したいコマンド名
と入力して下さい。
その 実行したいコマンド名を実行し、60秒以内に完了しなければ、
そのコマンドをKILLし、-2で戻ります。(linux(cent-os4.4))で動作確認済みです。
この回答へのお礼
お礼日時:2008/07/23 13:11
希望していたものを遥かに上回る素晴らしいプログラムを書いていただき、ありがとうございます。
使いやすさの点や、戻り値の値など、とても素晴らしいです。
おかげさまで、やりたい処理ができそうです。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
時間がかかり過ぎたプロセスを...
-
例外処理のフローチャートの記...
-
Cからシェルを起動し返り値をハ...
-
グラフのX,Y座標を取得したい
-
Excel VBA 標準モジュール内で...
-
YAMLについて
-
エクセルVBAでシートモジュール...
-
VBSがコンパイルエラーになりま...
-
Excel VBAで、ユーザーフォーム...
-
CPANモジュール取得におけるmak...
-
LCD ディスプレイを Raspberry ...
-
acwzlibとは?
-
Excel VBAでリンク切れをチェッ...
-
ランダムな単語を得るAPIってあ...
-
laravel 本番環境でメールが送...
-
インストールしたモジュールの確認
-
VBA モジュールで共通に使う変...
-
”:”がいっぱいの文について。
-
項目の状態別の色表示について
-
VBAのバージョンアップ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
AIX6でファイルのタイムスタン...
-
open MAILでの"|"
-
ハマったので助けて~。Apache...
-
実行中のcpan processを終了さ...
-
マルチスレッドとマルチプロセ...
-
Active Directoryでグループに...
-
Perlでpopen()的なものを使って...
-
Perlの処理待ちコマンド
-
時間がかかり過ぎたプロセスを...
-
Perlで日本語から始まり記号で...
-
並列処理について
-
HELOコマンドが失敗する。
-
LinuxにおいてのPerlのプログラ...
-
system関数とqx演算子の違いに...
-
perlスクリプト内でシェルコマ...
-
Perlでexitコードを取得する方法
-
スクリプトについて
-
perl から unix コマンドを入...
-
`rsh ホスト -l root /bin/echo...
-
system から得た情報を変数に入...
おすすめ情報