Codes sources Perl31 ressources dans cette catégorie

Les codes sources Perl téléchargeables. N'hésitez pas en rajouter.

Lorsque vous souhaitez appeler vos scripts perl via une console DOS ou Linux (ou Unix), vous avez souvent besoin de passer des arguments. La manière classique pour les récupérer est d'utiliser la variable @ARGV. Sachez qu'il existe un module perl nous permettant de gérer ces arguments proprement et facilement. Ce module est de plus déjà installé dans le core de perl, c'est le module en Getopt::Long. Le code à télécharger ci-dessous nous permet de taper en ligne de commande perl script.pl -name djibril -fichier "C:\repertoire\fichier.txt" -fichier "D:\repertoire\fichier2.txt" -numero 2 -v.

N.B. : Notez l'importance de protéger le chemin de vos fichiers par des guillemets, surtout s'il y a des espaces. Vo ... Voir la suite

Il peut être utile de devoir tourner un certain nombre de degrés les pages d'un PDF. Hors, tout le monde ne dispose pas d'Adobe Pro ou tout autre logiciel payant pour le faire.
Voici un programme perl qui le fera pour vous aisément. Il utilise le module PDF::API2.

Voici le mode d'emploi du programme :

• perl programme.pl -i input_pdf -o output_pdf -r 90
• perl programme.pl -i input_pdf -o output_pdf -r 45
• ...

Ce code vous permettra de fusionner plusieurs classeur Excel (xls, xlsx) en un unique fichier Excel (xls). Il copie toutes les feuilles des différents classeurs dans un seul fichier. Le seul inconvénient est qu'il ne garde pas les noms des feuilles mais en génère automatiquement (feuille1, 2, 3, ...) et les formats des cellules ne sont pas conservés.

Vous aurez besoin d'installer les modules

Spreadsheet::ParseExcel
Spreadsheet::XLSX
Spreadsheet::WriteExcel

Les modules Getopt::Long et Pod::Usage sont dans le core de Perl.



Pour savoir comment lancer le programme, faites

perl nom_programme.pl -help

ou

perl nom_programme.pl -man

Exemple de script permettant de connaitre :

la date d'aujourd'hui
la date dans 6 jours
la date 48 jours avant aujourd'hui
la date 2 ans et 6 mois avant aujourd'hui
la date de demain

Pour tester la validité d'une adresse électronique, inutile de s'acharner à trouver la bonne expression régulière. Il existe des modules perl le faisant pour nous proprement.

Voici un exemple de codes utilisant des modules différents Email::Valid et Mail::CheckUser.

Voici un code Perl qui permet de convertir un code hexadécimal 3-digits ou 6-digits en code RVB ou RGB (pour les anglais).

Voici un script permettant de récupérer le contenu d'une page Web et l'afficher sur la sortie standard STDOUT. Il y a la possibilité de spécifier un proxy HTTP. Ainsi qu'un login pour les connexions HTTP (autorisation de base).

Ce script va permettre de lister des fichiers dans un dossier.
Il va ensuite récupèrer les dates de création du fichier, formater le format de la date.
Les dates seront ensuite comparées à la date actuelle.
Les fichiers vieux d'un mois seront supprimés.

L'utilisation des expressions régulière est plus appropriée.

Pas de secret, le CPAN contient ce qu'il faut. Utilisez les modules Sys::Hostname et Socket déjà présent dans le CORE de perl.

La meilleure solution est de toujours utiliser le module Perl File::Spec qui est disponible dans le core de Perl.
Vous n'aurez plus besoin de vous soucier de la plateforme sous laquelle le programme tournera.

Ce code vous permet de lire un fichier passé en argument et liste les adresses emails s'y trouvant. Pour lancer ce programme, voici la commande à utiliser :
perl test.pl -f fichier.txt

Voilà, que pensez-vous de ce programme, vous a-t-il aidé ?

Il est souvent très utile de convertir un fichier, notamment une image png, gif... en une chaine encodée en Base64. Cela nous permet souvent d'insérer cette chaine dans un programme afin d'éviter d'avoir un fichier à part.

Le code que je vous propose prend en argument une ou plusieurs images et crée un ou plusieurs fichiers txt avec l'extension _base64.txt.

USAGE : perl C:\test.pl -i image1.gif -i image2.png ...

Résultat : image1_Base64.txt image2_Base64.txt

J'ai cherché sur internet pour faire cela mais sans succès. J'ai adapté ce que j'ai trouvé ici et là pour faire ce petit script (Je suis niveau débutant)

Vous souhaitez connaitre le nombre de jours (ou le nombre de semaines) entre deux dates, utilisez le module Date::Calc.

Voici un code Perl qui permet de convertir un code RVB ou RGB (pour les anglais) en hexadécimal 6-digits.

But: Backup automatique d'un dossier sur un site FTP comme l'hébergement mutualisé OVH.
- Afin de minimiser les uploads, seuls les fichiers modifiers seront uploader.
- Comme via ftp on ne peut pas avoir le mtdm (date de derniere modification) pour un dossier, utilisation d'une base de données simple afin de stocker les fichiers avec leur taille et le mtdm local.
- Comme on ne peut pas accéder la base de donnée directement de l'extérieur par mesure de sécurité, utilisation d'un wrapper HTTP simple utilisant la methode POST.


Base de donnée et les 2 tables:
2 tables:
- backup_folder: pour stocker les chemins globaux des répertoires (et utiliser un id pour la table des fichiers)
- ... Voir la suite

But: Backup automatique d'un dossier sur un site FTP comme l'hébergement mutualisé OVH.
- Afin de minimiser les uploads, seuls les fichiers modifiers seront uploader.
- Comme via ftp on ne peut pas avoir le mtdm (date de derniere modification) pour un dossier, utilisation d'une base de données simple afin de stocker les fichiers avec leur taille et le mtdm local.
- Comme on ne peut pas accéder la base de donnée directement de l'extérieur par mesure de sécurité, utilisation d'un wrapper HTTP simple utilisant la methode POST.


Base de donnée et les 2 tables:
2 tables:
- backup_folder: pour stocker les chemins globaux des répertoires (et utiliser un id pour la table des fichiers)
... Voir la suite

Petit script pour générer le fichier freemind contenant les taxons indiqués en paramètre...

Il faut une base mysql en local avec les données du NCBI .
http://linnaeus.zoology.gla.ac.uk/~rpage/tbmap/downloads/ncbi/

Il arrive que l'on ait besoin de comparer 2 listes perl entre elles afin d'obtenir les données communes aux deux listes, les données présentes dans une liste mais pas dans l'autre ... Pas besoin de reinventer la roue, il existe un module sur le CPAN qui le fait très bien, c'est List::Compare. Voici un exemple de code :