|
|
|
Googleのunix.com
|
|||||||
| シェルプログラミングとスクリプティング KSH 、 CSH 、 shに、 bashの、はPerl 、 PHPは、削除するsed 、 Awkの、他のシェルスクリプトやシェルスクリプト言語についての質問の投稿はこちら。 |
その他のUNIXおよびLinuxフォーラムトピックは参考にすること
|
||||
| スレッド | スレッドスターター | フォーラム | 返信 | 最後の投稿 |
| Perlスクリプトのヘルプ-データへの書き込みファイル | meghana | シェルプログラミングとスクリプティング | 2 | 2008年2月4日 05:05午後 |
| UnixのPerlのスクリプトの作成 | Dinkster | UNIXのダミー質問と回答のため | 1 | 2008年2月1日 04:09午後 |
| PerlでのCGIスクリプトを書く | アルマ | シェルプログラミングとスクリプティング | 7 | 2007年4月23日 10:46午後 |
| スクリプトを書くために役立つ | amodha | UNIXのダミー質問と回答のため | 2 | 2006年4月10日 07:21午前 |
| Perlモジュールを書く | jo_aze | シェルプログラミングとスクリプティング | 4 | 2003年8月6日 12:10午後 |
を搭載 
|
|
|
LinkBack | スレッドツール | このスレッドを検索 | スレッドを評価 | 表示モード |
2008年11月18日
|
||||
|
||||
|
ヘルプが必要な場合には、 perlスクリプトを書く
みなさんこんにちは！
私は書くことがある perlの trashholdsは、ファイルから取得し、コマンドの出力と一致するスクリプトを実行します。 trashholdファイルは、このようになります： コード：
"pl-it_prod.GW.Sync.reply.*" "500" "-1" "" "" "pl-it_prod.A.*" "100" "-1" "" "" "application.log" "50" "-1" "" "" "eai.log.process.*" "50" "-1" "" "" "pl-it_prod.S.*" "10" "-2" "" "" "pl-it_prod.P.*" "10" "-2" "" "" "pl-it_prod.GW.>" "10" "-2" "" "" "pl-it_prod.*.GW.Async.Reply.JMS" "10" "-1" "" "" （ trashold ...).未満の場合は" - " （マイナス）は、 meensがチェックされる必要がありますtrashold backwords のcommnadは、キューの実際の状態をこのような出力を返す： コード：
application.log 0 2 application.log.converter 0 0 eai.log.process.activity 0 2 eai.log.process.data 0 20 eai_inspection.start_test 0 1 pl-it_prod.A.EngSystem.V.CD 0 1 pl-it_prod.A.EngSystem.V.CD.EAI_Eng-BWEAIEng-1.DynamicMain 0 1 pl-it_prod.A.EngSystem.V.CD.EAI_Eng-BWEAIEng-1.DynamicMain.Reply 0 1 pl-it_prod.A.EngSystem.V.CD.EAI_Eng-BWEAIEng-2.DynamicMain 0 1 pl-it_prod.A.EngSystem.V.CD.EAI_Eng-BWEAIEng-2.DynamicMain.Reply 0 1 pl-it_prod.A.Orchest.V.CD 0 1 pl-it_prod.A.Orchest.V.CD.Orchest-BWOrch1-1.DynamicMain 0 1 pl-it_prod.A.Orchest.V.CD.Orchest-BWOrch1-1.DynamicMain.Reply 0 1 pl-it_prod.A.Orchest.V.CD.Orchest-BWOrch1-2.DynamicMain 0 1 pl-it_prod.A.Orchest.V.CD.Orchest-BWOrch1-2.DynamicMain.Reply 0 1 pl-it_prod.A.ShavitTuxedo.V.CD 0 1 pl-it_prod.A.ShavitTuxedo.V.CD.ShavitTuxedo-BWTux-1.DynamicMain 0 1 pl-it_prod.A.ShavitTuxedo.V.CD.ShavitTuxedo-BWTux-1.DynamicMain.Reply 0 1 pl-it_prod.A.ShavitTuxedo.V.CD.ShavitTuxedo-BWTux-2.DynamicMain 0 1 pl-it_prod.A.ShavitTuxedo.V.CD.ShavitTuxedo-BWTux-2.DynamicMain.Reply 0 1 pl-it_prod.AD.LDAP.V.CD.LDAPUserAuthGroups 0 4 pl-it_prod.AD.LDAP.V.CD.LDAP_ADInetOrgPerson 0 4 pl-it_prod.AD.LDAP.V.CD.LDAP_Bind 0 4 pl-it_prod.AD.LDAP.V.CD.LDAP_Groups 0 2 pl-it_prod.AD.LDAP.V.CD.LDAP_InetOrgPerson 0 2 pl-it_prod.AD.LDAP.V.CD.LDAP_Workstation 0 2 pl-it_prod.Columbus.Columbus-BWColumbus-1.admin 0 1 pl-it_prod.EAI_Eng.EAI_Eng-BWEAIEng-1.admin 0 1 pl-it_prod.EAI_Eng.EAI_Eng-BWEAIEng-2.admin 0 1 pl-it_prod.GW.Async 0 2 pl-it_prod.GW.Publish 0 2 pl-it_prod.GW.Sync 0 2 pl-it_prod.GW.Sync.reply.SCPROD.Upd_Soc_List 0 1 pl-it_prod.Gateways-B2B.GW.Async.Reply.JMS 0 2 pl-it_prod.Gateways-NPG.GW.Async.Reply.JMS 0 2 pl-it_prod.Gateways-Pele.GW.Async.Reply.JMS 0 2 pl-it_prod.Gateways.GW.Async.Reply.JMS 0 2 pl-it_prod.LDAP.LDAP-BWLDAP-1.admin 0 1 pl-it_prod.LDAP.LDAP-BWLDAP-2.admin 0 1 pl-it_prod.LDAP.adldap.LDAP-AdActiveDir-10.exit 0 1 pl-it_prod.LDAP.adldap.LDAP-AdActiveDir-11.exit 0 1 pl-it_prod.LDAP.adldap.LDAP-AdActiveDir-20.exit 0 1 pl-it_prod.LDAP.adldap.LDAP-AdActiveDir-21.exit 0 1 pl-it_prod.LDAP.adldap.LDAP-AdLDAP-1.exit 0 1 pl-it_prod.LDAP.adldap.LDAP-AdLDAP-2.exit 0 1 pl-it_prod.LoadTester.End 0 1 pl-it_prod.LoadTester.Test.End 0 1 pl-it_prod.MaofDB.MaofDB-BWMaof-1.admin 0 1 pl-it_prod.MaofDB.MaofDB-BWMaof-2.admin 0 1 pl-it_prod.NPG.NPG-BWNPG-1.admin 0 1 pl-it_prod.NPG.NPG-BWNPG-2.admin 0 1 pl-it_prod.Orchest.Orchest-BWOrch1-1.admin 0 1 pl-it_prod.Orchest.Orchest-BWOrch1-2.admin 0 1 pl-it_prod.P.Archive.V.CD 0 2 pl-it_prod.P.Columbus.V.CD 0 2 pl-it_prod.P.EngSystem.V.CD 0 2 pl-it_prod.P.LDAP.V.CD 0 2 pl-it_prod.P.MaofDB.V.CD 0 2 pl-it_prod.P.NPG.V.CD 0 2 pl-it_prod.P.Orchest.V.CD 0 2 pl-it_prod.P.PTL.V.CD 0 2 pl-it_prod.P.ShavitTuxedo.V.CD 0 2 pl-it_prod.S.Archive.V.CD 0 2 pl-it_prod.S.Columbus.V.CD 0 2 pl-it_prod.S.EngSystem.V.CD 0 2 pl-it_prod.S.LDAP.V.CD 0 2 pl-it_prod.S.MaofDB.V.CD 0 2 pl-it_prod.S.NPG.V.CD 0 2 pl-it_prod.S.Orchest.V.CD 0 2 pl-it_prod.S.PTL.V.CD 0 2 pl-it_prod.S.ShavitTuxedo.V.CD 0 2 pl.processes.Add_User_Soc-Callback.in 0 0 pl.processes.Close_User_Soc-Callback.in 0 0 stam 0 11 umts.processes.Add_User_Soc-Callback.in 0 0 umts.processes.Close_User_Soc-Callback.in 0 0 これまでのところ私 perlの スクリプトは次のように見える私はこだわっている： コード：
#!/usr/bin/perl
here load queue policy to hash
open(QUEUE, "/users/tibprod/scripts/ShowQueues_leaiprod.sh|") or die "failed to get queues stats" ;
foreach $line (<QUEUE>) {
($que_name,$que_thresh,$que_listen) = split $line;
foreach $que_thresh (keys %QueLim) {
if ( $que_name =~ /${que_thresh} ) {
check the thresh
}
}
}
してくださいでしたので、私はそれを成し遂げるか助けて！ どうもありがとう！  Eliraz 。 |
スレッドモード
