DF
monitorix
Ммм, тёплый ламповый cgi :)
#!/usr/bin/perl
use 5.016;
use strict;
use warnings;
use POSIX ":sys_wait_h";
my $pid;
$SIG{TSTP} = sub {
say("ctrl+Z");
kill 'TSTP', $pid;
};
if($pid = fork()) {
say("before wait");
waitpid($pid, WUNTRACED);
say("after wait");
while(<>) {
print("> $_");
}
} else {
#exec("perl -de1");
exec("python");
}
Если вызывать
exec("perl -de1");
все работает как и ожидалось выводится after wait, дальше можем читать стандартный ввод в цикле.
Если вызвать
exec("python");
выводится after wait, но читать мы ничего не можем