|
|
|
google unix.com
|
|||||||
| Forums | S'inscrire | Forum Rules | Liens | Albums | FAQ | Liste des membres | Calendrier | Recherche | Aujourd'hui, les postes | Marquer les forums comme lus |
| De programmation et de script Shell Posez vos questions à propos de KSH, CSH, SH, BASH, PERL, PHP, SED, awk et d'autres scripts shell et les langages de script shell ici. |
Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
|
||||
| Fil | Thread Starter | Forum | Réponses | Last Post |
| aide pour un script perl - la rédaction d'un fichier de données | meghana | De programmation et de script Shell | 2 | 02-04-2008 05:05 PM |
| Écriture de scripts Perl sous Unix | Dinkster | UNIX pour les nuls Questions et réponses | 1 | 02-01-2008 04:09 PM |
| De rédaction de scripts CGI en Perl | alma | De programmation et de script Shell | 7 | 04-23-2007 10:46 PM |
| aide pour l'écriture d'un script | amodha | UNIX pour les nuls Questions et réponses | 2 | 04-10-2006 07:21 AM |
| Rédaction de module perl | jo_aze | De programmation et de script Shell | 4 | 08-06-2003 12:10 PM |
Powered by 
|
|
|
LinkBack | Thread Tools | Recherche sur ce Thread | Rate Thread | Modes d'affichage |
11-18-2008
|
||||
|
||||
|
Besoin d'aide avec l'écriture d'un script perl
Salut à tous! Je dois écrire un perl script qui est trashholds à partir d'un fichier et les faire correspondre à une sortie d'une commande. Trashhold Le fichier ressemble à ça: Code:
"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" "" "" La première est formée de la file d'attente de nom (ou partie), la seconde est formée de la trashold de la file d'attente et la troisième est le trashold du nombre d'auditeurs le traitement de cette file d'attente. Quand il ya un "-" (moins) que Meens que le trashold doit être vérifiée en arrière (moins de la trashold ...). Le commnad qui donne l'état réel des files d'attente de retour de sortie comme ceci: Code:
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 Jusqu'à présent, mon perl script ressemble à ceci et je suis bloqué: Code:
#!/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
}
}
}
Espérons que tout a été expliqué clairement ... S'il vous plaît, aidez-moi pour que je puisse le faire! Merci beaucoup!  Eliraz. |
| Bookmarks |
| Thread Tools | Recherche sur ce Thread |
| Modes d'affichage | Rate this thread |
|
|
Fil de Mode
