Script :: Toolbox Script :: Toolbox is een Perl-raamwerk voor de dagelijkse zakelijke scripts.
Download nu

Script :: Toolbox Rangschikking & Samenvatting

Script :: Toolbox Tags

kader Perl-module perl Perl kader zakelijke scripts

Script :: Toolbox Beschrijving

Script :: Toolbox is een Perl-raamwerk voor de dagelijkse zakelijke scripts. Script :: Toolbox is een Perl-kader voor de Daily Business Scripts.Synopsis Gebruik Script :: Toolbox QW (: ALL); Of gebruik script :: Toolbox QW (Open Log Exit Tabel Gebruik Dir File System) $ E = Script :: Toolbox-> Nieuw (); # # loggen # log ("logbericht"); # Log in op Stderr Log ("Logbericht", 'Stderr'); # Log in op Stderr Log ("Logbericht", 'Stdout'); # Log op StDout Log ("Logbericht", '/ TMP / X'); # Log toe aan / TMP / X Log ("Logbericht", Nieuw IO :: Bestand "/ TMP / XXX"); # Log toe aan / TMP / XXX Script :: Toolbox-> Nieuw ({Logdir => {Mod => '= S', Desc => 'log directory', mand => 1, standaard => '/ var / log' }}); Log ("logbericht"); # Log in /Var/log/.log log ("logbericht", 'syslog', 'ernst', 'tag'); # Log via syslogd # # afdrukken geformatteerde tabellen zoals: # afdrukken join "n", @ {$ t}; $ t = $ e-> tabel (); $ t = $ e-> tabel (, '| $ t = $ e-> tabel (, , , ); $ t = $ e-> tabel ({'titel' => 'Hash-voorbeeld', 'head' => , 'data' => , , ]}); $ t = $ e-> tabel ({'titel' => 'hash met automatische kolomkoppen (F1, F2, F3)', 'data' => }); # # Opdrachtregelopties # $ TB = Script :: Toolbox-> Nieuw ({Bestand => {Mod => '= S', Desc => 'beschrijving', mand => 1, standaard => '/ bin / cat '}}); $ bestand = tb-> getopt ('bestand'); # Beschakeld, gebruik het volgende $ bestand = tb -> {'bestand'}; $ oud = tb-> setopt ('Newfile'); Gebruik(); # Print een gebruikbericht voor alle opties # Indien beschikbaar Afdrukken Ook het gebruik van de pod ('Dit is extra tekst voor het gebruik'); # # Mapafhandeling # $ arrref = dir ('/ tmp'); # alles behalve . en .. $ arrref = dir ('/ tmp', '. * Patt'); # ALL PATTING PATT $ ARRREF = DIR ('/ TMP', '!. * PATT'); # Allemaal niet overeenkomen Patt # # Bestandsbehandeling # $ Arrref = Bestand ('Pad / To / File'); # Lees bestand in array $ arrref = bestand ("/ bin / ps |"); # Lees COMAND STDOUT in arraybestand ("> pad / naar / bestand", 'Overschrijven van de oude inhoud'); Bestand ("Pad / To / File", 'Voeg dit toe aan het bestand'); Bestand ("pad / naar / bestand", $ arrroog); # Voeg array-elementenbestand ("pad / naar / bestand", $ arrref, $ Recessie); # Appry-elementenbestand toevoegen ("Pad / to / file", $ HASHREF, $ RECSEP, $ FALTEPP); # Voeg toe als sleutelwaarde-lijnenbestand ("| / bin / cat", "Hallo World.n"); $ filehandle = tmpfile (); # Open nieuwe tijdelijke bestand $ arrroog = tmpfile ($ filehandle) # Lees Temp Hele bestand # # Miscellanous # afsluiten (1, "Exit Message"); # afsluiten met retourcode 1, # Schrijfuitslagbericht via log () $ FH = open ("> / tmp / xx"); # Retourneer een IO :: Bestandsobject met # / TMP / XX geopend voor schrijven # sterven met logfile-invoer Als mislukt $ FH = open ("/ bin / PS |"); # Retourneer een IO :: Bestandsobject # sterven met logfile-invoer Als mislukt $ RC = systeem ("/ bin / ls") # Voer een systeemcommando uit en # rapporteert het uitvoer in de # LogFile. $ nu = nu (); Printf "Dag:% D MON:% D JAAR:% D WAY:% D YDAY:% D ISDST:% D SEC:% D min:% D uur:% D", $ NU -> {mday}, $ nu -> {mon}, $ nu -> {jaar}, $ nu -> {wday}, $ nu -> {yday}, $ NU -> {ISDST}, $ NU -> {SEC}, $ NU-> {min}, $ nu -> {uur}; $ nu = nu ('"% a,% b% d,% y"'); # Monday, 10 oktober 2005 = Head1 AbstranThis-module moet een "Swiss Army Mes" zijn voor de dagelijkse taken. De belangrijkste doelen zijn opdrachtregelverwerking, automatische gebruiksberichten, signaal vangen (met loggen), eenvoudige logging, eenvoudige gegevensopmaak, eenvoudige map en bestandsverwerking.Requirements: · PERLWAT IS NIEUW IN DEZE RELEASE: · Nieuwe parameter nu ({DIFFORTER }) · Bugfixing in Test T03_EXIT

Script :: Toolbox Gerelateerde software