Perlプロセス管理
Perl ではさまざまな方法でプロセスを作成できます。
このチュートリアルでは、いくつかのプロセス管理方法について説明します。
特殊変数 $$ または $PROCESS_ID を使用してプロセス ID を取得できます。
%ENV ハッシュには、シェル内の環境変数である親プロセスが保存されます。これらの変数は Perl で変更できます。
exit() は通常、子プロセスを終了するために使用され、すべての子プロセスが終了した後にメインプロセスが終了します。
開いているすべてのハンドルはサブルーチン内の dup() 関数によってコピーされ、プロセスのすべてのハンドルを閉じても他のプロセスには影響しません。
バックティック演算子
バックティック演算子を使用すると、Unix コマンドを簡単に実行できます。バッククォートにいくつかの単純なコマンドを挿入できます。コマンドが実行されると、結果が返されます:
#!/usr/bin/perl
@files = `ls -l`;
foreach $file (@files){
print $file;
}
1;上記のプログラムを実行すると、出力結果は次のようになります:
drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14 drwxr-xr-x 4 root root 4096 Sep 13 07:54 android -rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01 -rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl ……
system()関数
また、system()関数を使用して次のことを行うこともできます。 Unix コマンドを実行する このコマンドを実行すると、結果が直接出力されます。デフォルトでは、Perl の STDOUT が現在指している場所 (通常は画面) に送信されます。リダイレクト演算子>を使用して、指定したファイルに出力することもできます:
上記のプログラムを実行すると、出力結果は次のようになります:
drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14 drwxr-xr-x 4 root root 4096 Sep 13 07:54 android -rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01 -rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl ……
$などの環境変数を含むコマンドの出力結果に注意する必要があります以下に示すように、PATH または $HOME:
#!/usr/bin/perl
$PATH = "我是 Perl 的变量";
system('echo $PATH'); # $PATH 作为 shell 环境变量
system("echo $PATH"); # $PATH 作为 Perl 的变量
system("echo $PATH"); # 转义 $
1;上記のプログラムを実行すると、出力結果は次のようになります:
/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin 我是 Perl 的变量 /usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
fork() 関数
Perl の fork() 関数は、新しいプロセスを作成するために使用されます。
親プロセスでは子プロセスのPIDを返し、子プロセスでは0を返します。エラーが発生した場合 (メモリ不足など)、undef が返され、対応するエラー メッセージが $! に設定されます。
fork は exec とともに使用できます。 exec 関数が引用符で囲まれたコマンドを実行すると、プロセスは終了します。
#!/usr/bin/perl
if(!defined($pid = fork())) {
# fork 发生错误返回 undef
die "无法创建子进程: $!";
}elsif ($pid == 0) {
print "通过子进程输出\n";
exec("date") || die "无法输出日期: $!";
} else {
# 在父进程中
print "通过父进程输出\n";
$ret = waitpid($pid, 0);
print "完成的进程ID: $ret\n";
}
1;上記のプログラムを実行すると、出力結果は次のようになります:
通过父进程输出 通过子进程输出 2016年 6月19日 星期日 22时21分14秒 CST 完成的进程ID: 47117
プロセスが終了すると、親プロセスに CHLD シグナルが送信され、親プロセスは wait と waitpid を使用する必要があります。終了します。もちろん、$SIG{CHLD} を IGNORG に設定することもできます。
#!/usr/bin/perl
local $SIG{CHLD} = "IGNORE";
if(!defined($pid = fork())) {
# fork 发生错误返回 undef
die "无法创建子进程: $!";
}elsif ($pid == 0) {
print "通过子进程输出\n";
exec("date") || die "无法输出日期: $!";
} else {
# 在父进程中
print "通过父进程输出\n";
$ret = waitpid($pid, 0);
print "完成的进程ID: $ret\n";
}
1;上記のプログラムを実行すると、出力結果は次のようになります:
通过父进程输出 通过子进程输出 2016年 6月19日 星期日 22时30分56秒 CST 完成的进程ID: -1
Kill 関数
Perl kill('signal', (プロセス リスト) ) プロセスのグループにシグナルを送信します。 signal は送信されるデジタル信号、9 はプロセスを強制終了することを意味します。
まず、Linux で一般的に使用されるシグナルを見てみましょう。次のリストを参照してください:
信号名 值 标注 解释 ———————————————————————————————————————————————————————————— HUP 1 A 检测到挂起 INT 2 A 来自键盘的中断 QUIT 3 A 来自键盘的停止 ILL 4 A 非法指令 ABRT 6 C 失败 FPE 8 C 浮点异常 KILL 9 AF 终端信号 USR1 10 A 用户定义的信号1 SEGV 11 C 非法内存访问 USR2 12 A 用户定义的信号2 PIPE 13 A 写往没有读取者的管道 ALRM 14 A 来自闹钟的定时器信号 TERM 15 A 终端信号 CHLD 17 B 子进程终止 CONT 18 E 如果被停止则继续 STOP 19 DF 停止进程 TSTP 20 D tty键入的停止命令 TTIN 21 D 对后台进程的tty输入 TTOU 22 D 对后台进程的tty输出
次の例は、プロセス 104 と 102 に SIGINT シグナルを送信します:
#!/usr/bin/perl
kill('INT', 104, 102);
1;
