[mdk-re] Re: [mdk-re] Re: [mdk-re] Re: [mdk-re] Как убить pppd?

["Lenya L. Khachaturov" <lenya@chemsell.yaroslavl.ru>]

Hello Sergey,

Tuesday, April 24, 2001, 8:27:43 PM, you wrote:

SD> Доброго времени суток, Dmitry,

SD> 24.04.2001 в 20:05 Вы сказали буквально следующее:

Dmitry>> Убить процесс /usr/sbin/pppd можно, скажем, выполнив
Dmitry>> "killall /usr/sbin/pppd". Однако делать это Вам, скорее всего, не нужно.
Dmitry>> Сформулируйте задачу конкретнее, и ответ будет более точным.


Dmitry>> Regards,
Dmitry>>         Dmitry

SD> О пользе чтения man, как раз. Надо было читать к killall.
SD> Но все равно, может кому-то лень набирать /usr/sbin =)
SD> Будем считать - практиковался.

SD> SINOPSYS :
SD> killcom [-l] process
SD> -l - не убивать\показать

SD> *killcom

SD> #!/usr/bin/perl
SD> foreach (@ARGV) {
SD> push (@keys, shift @ARGV), next if /-\w/;
SD> }
SD> $victim = shift @ARGV;
SD> open (PS, "ps ax |");
SD> while (<PS>) {
SD> ($pid, $tty, $stat, $time, $command) = split (' '),last if /(\d+)\s+(\w+)\s+(\w+)\s+(.*?)\s+($victim)/;
SD> }
SD> close (PS);
SD> #print getppid, $pid;
SD> #exit;
SD> print "No such process : $victim\n",exit if ((!$pid) || ($pid eq getppid));
SD> print "Found process : $pid $tty $stat $time $command\n";exit if ($keys[0] eq '-l');
SD> print "killing $command\n";
SD> print "Killed successfully\n" if (kill 9, $pid); 

:)))) Сенькс! А как оно работает? killcom pppd вообще ничего не
делает, будучи запущенным без параметров шлепает все подряд, по
очереди.


-- 
Best regards,
 Lenya                            mailto:lenya@georges.home