From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maga@globetravel.spb.ru>
From: Sergey Degtyaryov <maga@globetravel.spb.ru>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <19852.010424@globetravel.spb.ru>
To: "Dmitry V. Levin" <mandrake-russian@altlinux.ru>
In-reply-To: <20010424200516.B7026@ldv.office.alt-linux.org>
References: <20010424200516.B7026@ldv.office.alt-linux.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [mdk-re] =?koi8-r?B?UmU6IFttZGstcmVdIFJlOiBbbWRrLXJlXSDrwcsg1cLJ1NggcHBwZD8=?=
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
X-Reply-To: Sergey Degtyaryov <maga@globetravel.spb.ru>
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Mandrake/RE discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Tue Apr 24 20:26:12 2001
X-Original-Date: Tue, 24 Apr 2001 20:27:43 +0400
Archived-At: <http://lore.altlinux.org/community/19852.010424@globetravel.spb.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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

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

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


Dmitry> Regards,
Dmitry>         Dmitry

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

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

*killcom

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


     \\|||//
     ( O O )      С уважением, Сергей
-oOOO--(_)--OOOo---------------------------------