killqtss

来自「要求上传五份源代码, 这是重量级的, 苹果达尔文服务器源代码, RTSP, RT」· 代码 · 共 16 行

#!/usr/bin/perl

#kill qtss
$pids = `ps -ax | awk '{print \$1" " \$5}' | awk '/QuickTimeStreamingServer/ {print \$1}'`;
$pids =~ s/\n/ /;
if ($pids ne '') {
	`kill $pids`;
}

#kill streamingadminserver.pl
$pids = `ps -ax | awk '/streamingadminserver.pl/ {print \$0}' | awk '/perl/ {print \$1}'`;
$pids =~ s/\n/ /;
if ($pids ne '') {
	`kill $pids`;
}