exemples scripts Perl

Exemple_commenté est le script Tafed passé à la moulinette lexique compris
 

et ce sera tout jusqu'a demain, n'hésitez pas à me joindre au aadelmar@free.fr /Linux ou a.adelmar@wanadoo.fr/Micro$oft

Voici une suite d'exemple de scripts, ce sont mes premiers scripts. Biensûr lorsque je regarde les premiers j'ai envie de les réécrires car trop longs, mal écrits etc... mais il tournent et il est des fois intéressant de voir que, même mal écrit, ça tourne.   Tous ça pour dire je vous livre tel quel et qu'il ne peuvent intéresser que le novice (pour ce faire une idée).
Ces script sont fait pour un environnement MS (petit mou). Pour d'autres exemples sur un env Linux _ écrivez moi
(tous ces script ne pésent rien 2 ou 3 ko a part quelque uns)
alain Adelmar
 

__________________

expl:   rep.pl qui liste le contenu d'un répertoire pour le restituer dans un fichier .dat (utilisation readdir, opendir  enfin les handle de répértoire ainsi que ceux de fichiers, etc...)
expl: RepByExt.pl  qui lui répértorie les fichiers par leur extentions (donc au moyen d'expression régulières regex) . Idem que rep.pl mais liste et tri que suivant les extensions (le type que vous désirez) (approche différente)

expl:  alEd.pl qui est un petit éditeur qui vous permet d'écrire des textes depuis le MSDOS ou un shell et les sauvegardes par defaut sous l'extension que vous désirer. (Menu par choix, comportement de STDOUT, fracmentation du script en plusieurs procedures, routines, cronologie et renvoi en sous procedure)

expl: perl_5.html est un script qui motre comment se comporte les fonctions de liste: shift, reverse, pop, push, unshift

expl: cp4chg_ext.pl et un script qui permet de changer les extensions de plusieurs fichiers avec une confirmation et une copie de sécurité dans format initial. (pratique)  dans le même style chg_ext.pl et cp_chg_ext.pl qui font le même travail avec des petites variantes. De plus ces script vous montrerons comment :

1. extraire un texte d'un code. Ici nous verrons comment récupérer le texte d'un fichier HTML (oter les balises)


2. comment par index et boucle savoir où trouver l'information. Par incrémentation d'un index, repérer les Euro et les Francs


3. formater un rapport écran par la fonction "write" et les formats inclus dans Perl.


4. Formater un rapport .txt dans un fichier en printant une variable liste @ par la fonction foreach $_(@_)


5. sortir un fichier csv (compatible Word, Excell, Access, Works Gnumeric etc ...) dynamiquement en sortie de boucle par           print "$element" . ',';


6. palcer les assignations dans une boucle et récuperer les variables listes.


7. assigner les variables de hashage pour pouvoir questionner le programme sur la gestion de tel ou tel évenement.


8. Création de LoL (liste de Listes)


9. Ouverture fermeture et gestion des erreurs des fichiers ouvert en lecture, écriture.

expl: tafed.pl qui est un script qui traduit directement depuis le shell les mots Anglais en Français, Français en Anglais.

1. menu , création d'un menu pour Fr-Ang |Ang-Fr | Edition et Quitte


2. recherche d'élément grace aux expressions réguliére


3. créer un contrôle de phrase par mot entré dans la partie Edition


4. Edite le dictionnaire dico_uk-fr et bien évidement pour le cas ou plusieurs utilisateur se serve du même programme un possibilité d'updater le dico_uk-fr en passant par updico_uk-fr qui lui aussi sera pratique pour updater n'importe quel fichiers.


5. la comparaison entre 2 fichiers. Ce qui appartient à A mais pas a B, ce aui appartient à B mais pas à A


6. Trouvez donc Tafed entierement mis à nue, expliquer, ligne par lignes.

expl: car2hex.pl pour voir comment sortes les 256 premiers caractères (un de mes premiers)

expl: dans le même genre mais avec une police de caractère formé de 5colonne de ce même caratère style:
            aaa     ll       ppppp       hh    hh      aaa
           a     a   ll       p         p     hh    hh     a      a
          aaaaa   ll       pppp         hhhhhh    aaaaa
         a         a ll       p                hh     hh   a         a
        a           allllllll p                hh     hh   a          a         alphaLoL.html

expl: 400ccp.pl est le premier script conséquent que j'ai écrit, il prend un fichier .shtml ( qui représente vos 400 dernières opérations, téléchargé sur le site de la poste) et le nettoie en sort un rapport formaté sur l'écran plus un au format texte et un autre au format .csv  qui lui pourra être à son tour chargé sur n'importe quel tableur (Excel, Access, Word ou Works ou autre )
Ce script montre qu'avec perl on peut vraiment faire ce que l'on veut des données avec un minimum de commandes et d'expérience).

expl: temps avec perl (test sur paramètre temps) etalonnage depuis le moment 0.

expl: substitution

expl: Le fichiers d'exemples exemple 1, exemple 2, exemple 3, exemple 4, exemple 5, exemple 6, exemple 7
exemple 8, exemple 9

je promet de mettre mes autres exemples ici dés que j'aurai le temps  voir dans le récapitulatif des pages présentes.
alain Adelmar

Ici un script qui peu transformer n'importe quel texte pourvu qu'il comporte de numéro de chapitre en fichier html
avec des liens interactifs. Il fait une copie de votre fichiers texte puis extrait les numéro, titres et sous-titres pour les centraliser au début du document en les transformant en liens html (il inclut des ancres et des href au nom des titres et/ou numéros de chapitre) Je vous le sers tout chaud il peut avoir besoin de quelques réglages.
faq2html.pl et txt2html.pl . Dans le même genre Rep2html.html et le dernier de mes script qui créé des liens dynamique des fichier présent dans tel ou tel repertoire.

___________________________________________________________________________________

400ccp.pl est le premier script consequant que j'ai écrit, il prend un fichier .shtml ( qui represente vos 400 dernières opérations, téléchargé sur le site de la poste) et le nettoie en sort un rapport formaté sur l'écran plus un au format texte et un autre au format .csv  qui lui pourra être à son tour chargé sur n'importe quel tableur (Excel, Access, Word ou Works ou autre ) Ce script montre qu'avec perl on peut vraiement faire ce que l'on veut des données avec un minimum de commandes et d'experience). Trouvez ici ma dernière version qui tourne
expl: temps avec perl (test sur paramètre temps)
expl: substitution
expl: Le fichiers d'exemples exemple 1, exemple 2, exemple 3, exemple 4, exemple 5, exemple 6, exemple 7
exemple 8, exemple 9
je promet de mettre mes autres exemples ici dés que j'aurai le temps          alain Adelmar
Ici un script qui peu transformer n'importe quel texte pourvu qu'il conporte de numero de chapitre en fichier html
avec des liens_interactifs. Il fait une copie de votre fichiers texte puis extrait les numéro, titres et soustitres pour les centraliser au debut du document en les transformant en liens html (il inclut des ancres et des href au nom des titres et/ou numeros de chapitre)
Je vous le sers tout chaud il peut avoir besoin de quelques réglages.
faq2html.pl et txt2html.pl .mais auussi rep2html.html

bonne soirée
alain
 

• Précédant
• Suivant
• Exemple Commenté
• Index
• Me Joindre