|
|
|
google unix.com
|
|||||||
| Forums | Registrer | Forum Regler | Links | Albums | FAQ | Members List | Kalender | Søgning | Dagens Stillinger | Mark Forums Read |
| Shell Programmering og Scripting Post spørgsmål om ksh, CSH, SH, Bash, Perl, PHP, SED, AWK og ANDRE shell scripts og Shell scriptsprog her. |
Mere UNIX og Linux Forum Emner du måske kan finde Helpful
|
||||
| Tråd | Thread Starter | Forum | Svar | Last Post |
| hjælp til en perl script - at skrive til en datafil | meghana | Shell Programmering og Scripting | 2 | 02-04-2008 05:05 PM |
| Perl Unix Script Skrivning | Dinkster | UNIX for dummyer Spørgsmål & svar | 1 | 02-01-2008 04:09 PM |
| Skrivning CGI scripting vha. perl | Alma | Shell Programmering og Scripting | 7 | 04-23-2007 10:46 PM |
| hjælp til at skrive et script | amodha | UNIX for dummyer Spørgsmål & svar | 2 | 04-10-2006 07:21 AM |
| Skrivning perl-modulet | jo_aze | Shell Programmering og Scripting | 4 | 08-06-2003 12:10 PM |
Powered by 
|
|
|
LinkBack | Thread Tools | Søg denne tråd | Rate Thread | Display Modes |
11-18-2008
|
||||
|
||||
|
Har du brug for hjælp med at skrive et perl-script
Hej alle! Jeg er nødt til at skrive en perl script, der får trashholds fra en fil og matche dem med en produktion på en kommando. Den trashhold fil ser sådan her ud: 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" "" "" Den første indgives er kønavn (eller en del af den), det andet arkiveret er trashold i køen, og det tredje er den trashold af antallet af lyttere håndtering denne kø. Når der er en "-" (minus), at meens at trashold bør kontrolleres backwords (mindre end trashold ...). Den commnad, der giver den virkelige tilstand af køer returnere en produktion som denne: 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 Hidtil min perl script ser sådan ud, og jeg sidder fast: 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
}
}
}
Håber, at alt var forklares tydeligt ... Please hjælp mig, så jeg kunne få det gjort! Mange tak!  Eliraz. |
| Bogmærker |
| Thread Tools | Søg denne tråd |
| Display Modes | Bedøm denne tråd |
|
|
Gevindskårne Mode
