История изменений
Исправление shaplov, (текущая версия) :
Нашел в сети про setsid. Теперь скрипт выглядит так:
#!/usr/bin/perl
use strict;
use POSIX;
my $pid = fork();
if ($pid)
{
print "$pid\n";
sleep 10;
while (1) {print ".\n"; sleep 1};
} else
{
my $i=0;
(setsid() != -1) || die "Can't start a new session: $!";
sleep 10;
while (1) {print "$i\n"; sleep 1; $i++};
}
Но все равно не работает. В этом варианте reptyr выводит
[-] Timed out waiting for child stop.
И ждет. Из родительской консоли вывод при этом пропадает. В целевой не появляется. И если в новой консоли нажать ctrl-C то процесс вроде как завершается…
Пока не знаю куда копать дальше…
Исходная версия shaplov, :
Нашел в сети про setsid. Теперь скрипт выглядит так:
#!/usr/bin/perl
use strict;
use POSIX;
my $pid = fork();
if ($pid)
{
print "$pid\n";
sleep 10;
while (1) {print ".\n"; sleep 1};
} else
{
my $i=0;
(setsid() != -1) || die "Can't start a new session: $!";
sleep 10;
while (1) {print "$i\n"; sleep 1; $i++};
}
Но все равно не работает. В этом варианте reptyr выводит
[-] Timed out waiting for child stop.
Из родительской консоли вывод при этом пропадает. В целевой не появляется. И если в новой консоли нажать ctrl-C то процесс вроде как завершается…
Пока не знаю куда копать дальше…