Script :: Boîte à outils Script :: Boîte à outils est un cadre PERL pour les scripts d'entreprise quotidiens.
Télécharger maintenant

Script :: Boîte à outils Classement & Résumé

Script :: Boîte à outils Mots clés

cadre Module Perl perl cadre Perl scripts d'affaires

Script :: Boîte à outils La description

Script :: Boîte à outils est un cadre PERL pour les scripts d'entreprise quotidiens. Script :: Boîte à outils est un cadre Perl pour les scripts quotidiens de l'entreprise.Synopsis Utilisez Script :: Toolbox QW (: tout); Ou utilisez le script :: Toolbox QW (Open journal Quitter le système de fichiers d'utilisation du journal) $ E = Script :: Boîte à outils-> Nouveau (); # # enregistrer # log ("Message de journal"); # Log to stardr journal ("Message de journal", 'stardr'); # Connexion à STDERR Journal ("Message de journal", 'stdout'); # Log to stdout journal ("Message de journal", '/ TMP / X'); # Log to / tmp / x journal ("Message de journal", nouveau io :: Fichier "/ TMP / XXX"); # Log to / tmp / xxx script :: Boîte à outils-> Nouveau ({logDir => {MOD => '= S', DESC => "Répertoire de journal", mand => 1, défaut => '/ var / log' }}); Journal ("Message de journal"); # Log to /var/log/.log journal ("Message de journal", 'syslog', "gravité", "tag"); # Log via syslogd # # Imprimer des tables formatées comme: # Imprimer rejoindre "N", @ {$ t}; $ t = $ e--> table (); $ t = e--> table (, '|'); $ t = $ e-> table (, , , ); $ t = $ e--> table ({'Titre' => 'Exemple de hachage', 'Head' => , 'Data' => , , ]}); $ t = $ e--> table ({'TITLE' => 'HASH avec têtes de colonne automatique (F1, F2, F3)', 'Data' => }); # # Options de ligne de commande # $ TB = script :: Boîte à outils-> Nouveau ({File => {MOD => '= S', Desc => 'Description', Mand => 1, défaut => '/ bin / cat '}}); $ fichier = tb-> getopt ("fichier"); # Démis, utilisez le fichier $ suivant = tb -> {"fichier"}; $ old = tb-> setopt ('Newfile'); Usage(); # Imprimer un message d'utilisation pour toutes les options # Si disponible Imprimer également l'utilisation de la POD ("Ceci est un texte supplémentaire pour l'utilisation"); # # Gestion du répertoire # $ Arrref = dir ('/ TMP'); # tout sauf . et .. $ Arrref = dir ('/ TMP', '. * PATT'); # tous correspondant pattement $ Arrref = dir ('/ tmp', '!. * PATT'); # tout ne correspond pas à la manutention de la patote # # $ Arrref = Fichier ('Path / To / File'); # lire le fichier en array $ $ Arrref = fichier ("/ bin / ps |"); # LIRE COMANK STDOUT dans le fichier Array ("> chemin / vers / fichier", "remplacer l'ancien contenu"); Fichier ("chemin / fichier / fichier", "appendez-le dans le fichier"); Fichier ("chemin / fichier / fichier", $ arratef); # Ajoutez des éléments de tableau ("chemin / vers / fichier", $ arratef, $ Receveur); # Ajoutez le fichier d'éléments de tableau ("chemin / vers / fichier", $ hashref, $ recsep, $ fieldsep); # Ajouter en tant que fichier de lignes de valeur clé ("| / bin / cat", "bonjour world.n"); $ filhandle = tmpfile (); # Ouvrez un nouveau fichier temporaire $ Arrref = tmpfile ($ FileThandle) # Lisez la température totale Fichier N ° # Divers # Sortie (1, "Sortie Message"); # Sortie avec RetourCode 1, # Écrire un message de sortie via journal () $ FH = Ouvrir ("> / TMP / XX"); # Renvoyer un objet Io :: Fichier avec # / TMP / XX Ouvert pour l'écriture # Die avec une entrée de logfile si elle a échoué $ fh = ouvert ("/ bin / ps |"); # Renvoyer un numéro d'objet IO :: Die d'objet de fichier avec une entrée de logfile si échoué $ RC = SYSTEM ("/ BIN / LS") # Exécutez une commande système et # Signalez-le, il est sorti dans le fichier journal #. $ maintenant = maintenant (); Printf "Jour:% D Lun:% D Année:% D Way:% D yday:% d isdst:% d sec:% d min:% d heure:% d", $ maintenant -> {mddy}, $ maintenant -> {mon}, $ maintenant -> {année}, $ maintenant -> {way}, $ maintenant -> {yday}, $ maintenant -> {isdst}, $ maintenant -> {sec}, $-> {min}, $ maintenant -> {heure}; $ maintenant = ('"% a,% b% d,% y"'); # Lundi, 10 octobre 2005 = Le module AbstractChis de Head1 devrait être un "couteau suisse de l'armée" pour les tâches quotidiennes. Les principaux objectifs sont le traitement de la ligne de commande, les messages d'utilisation automatiques, le capture de signal (avec journalisation), la journalisation simple, le formatage de données simple, le traitement simple du répertoire et le traitement de fichiers.Requifications: · Perlwhat's News dans cette version: · Nouveau paramètre maintenant ({diff => }) · Fixation de bugs dans Test T03_Exit

Script :: Boîte à outils Logiciels associés