perl -一个用于遍历和终止pids的内联程序

Question

如何在这个perl one内存行中执行kill -9？我已经找到了列出pids的位置，可以将其打印到一个文件中，如下所示：

ps -ef | grep -v grep |grep /back/mysql | perl -lane '{print "kill -9 $F[1]"}'

Answer 1

好的，对我最初的答案进行了大量的编辑。

首先，简单的回答是：

ps -ef | grep -v grep |grep /back/mysql | perl -lane 'kill 9, $F[1]'

好了。

但是grep | grep | perl是一种很愚蠢的方式。我最初的反应是“为什么需要Perl?”我通常会用awk | kill来做这件事，把Perl留给更复杂的问题，以证明额外的类型是合理的：

ps -ef | awk '/\/back\/mysql/ {print $2}' | xargs kill -9

(请注意，awk不会找到自己，因为字符串"\/back\/mysql“与模式/\/back\/mysql/不匹配)

当然，您可以使用Perl来代替awk：

ps -ef | perl -lane 'print $F[1] if /\/back\/mysql/' | xargs kill -9

(我故意使用倾斜的牙签，而不是不同的分隔符，这样进程就不会发现自己，就像awk的例子一样。)

然后，问题从“为什么需要perl?”对于“为什么需要grep/awk/kill?"：

ps -ef | perl -lane 'kill 9, $F[1] if /\/back\/mysql/'

Answer 2

你有没有考虑过pkill or pgrep？

pkill /back/mysql

或

pgrep /back/mysql | xargs kill -9

Answer 3

让我们为初学者使用一个更合适的ps命令。

ps -e -o pid,cmd --no-headers |
   perl -lane'kill(KILL => $F[0]) if $F[1] eq "/back/mysql";'