Perl批量殺升騰終端綁定程式進程，解決CPU佔用率100％問題。

需求:同事反映伺服器每當下午下班時就出現終端登入難、業務辦理長時間無響應。
    經查,升騰終端綁定程式與每個終端都有大量無效串連 （Perl擷取串連原生外部IP資訊），即使，終端離線佔用的資源依然不釋放，下次串連時又重新建立新串連，重複。直至耗盡伺服器可用資源同時CPU佔用率100％
    上述，個人凝為升騰程式BUG，聯絡廠家後暫未給出解決方案，臨時編寫這個程式手動回收被過多佔用的資源。
優點:批量KILL程式快速回收被佔用的資源。                                                                                                                                                                                                             

#!/usr/bin/perl -wuse strict;############################################################# 檔案:kill_centerm.pl# 功能:殺掉運行狀態的升騰終端綁定程式進程(centermtelnetd)# 需求:同事反映伺服器每當下午下班時就出現終端登入難、業務辦理#   長時間無響應。#經查,升騰終端綁定程式與每個終端都有大量無效串連，即使，終#   端離線佔用的資源依然不釋放，下次串連時又重新建立新串連，#   重複。直至耗盡伺服器可用資源同時CPU佔用率100％#上述，個人凝為升騰程式BUG，聯絡廠家後暫未給出解決方案，臨時#   編寫這個程式手動回收被過多佔用的資源。# 優點:批量KILL程式快速回收被佔用的資源。# 版本:v0.1# 時間:2012-3-28 22:46# 作者:半點鐘閑# 測試平台:# SCO_SV scosysv 3.2 5.0.6 i386########################################################################################### ps:# -e 顯示所有進程，環境變數;# -f 全格式;# -l 長格式;##############################open (CEN,"ps -elf |") or die "Can't open wordcount:$!";while (<CEN>){#提取#S(state of the process)域#R:運行狀態(runnig)的進程的PIDif (/R\s+\w+\s+(\d+).*center.*$/){print "$&\n" if kill -9,$1;}}close CEN;

被佔用時top命令介面圖：