Perl75 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

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/

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

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

Fraise est basé sur l'éditeur de texte Smultron, dont le créateur a décidé d’arrêter le développement.
Fraise est toujours gratuit et compatible Mac OS 10.6+.

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)

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.

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

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

DzSoft Perl Editor est un outil pour éditer et déboguer des script Perl/CGI. Il a une interface intuitive aussi bien pour les débutants que pour les développeurs confirmés. C'est un outil très simple mais aussi très puissant. Il possède des fonctionnalités de débogage, un éditeur très pratique avec une coloration syntaxique, une vérification syntaxique qui trouve les erreurs dans votre script et beaucoup d'autres fonctionnalités pour développer facilement en Perl

Pour faire un sleep de moins d'une seconde, il est recommandé d'utiliser le module Time::HiRes qui est disponible dans le core.
Mais vous pouvez être encore beaucoup plus précis. A vous de jouer avec ce module très puissant.

Sous Linux ou Mac OS, il n'existe aucun utilitaire permettant de désinstaller un module Perl. Donc, voici un script qui peut vous permet de le faire proprement.

Comment raboter un texte trop long et ajouter 3 petits points ?

Le but est de récupérer les identifiants et leur séquence une à une de façon simple et rapide grâce au module Bio::SeqIO. Fichier d'entrées :
test.txt

>A1
GATACCAGCATCGTACGTCGTACGTACGTAGGGATCATTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
>A2
TACCACCCGATCTCGCATCGTCATGTGCGGGATCATTATGCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
>B1
GATACCAGCGGGATCATTATGCCACATTCTGATCTTGGACCTGATAGATCTGACT
>B2
GATACCAGCCACTTCTGACGATCGATCGATATTATAAAAGGATCATTATGCCACATTCTGATCgTGGACCTGCATTATAGATCTGCCCTT
>C1
GATACCAGCGGGATCATTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
>C2
GATACCAGCGGGATCCTTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT

Résultat

>A1
GATACCAGCATCGTACGTCGTACGTACGTAGGGA ... Voir la suite

Le module Bio::AlignIO permet de récupérer et d'analyser les séquences une à une en gardant les positions des gaps. On peut donc aussi récupérer un bloc de sous-séquences en gardant leur alignement, mais également obtenir la séquence consensuelle de cet alignement.

file.fsa

>A1/1-60
GATACCAGCGGGATCATTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
.
>A2/1-57
..TACCAGCGGGATCATTATGC.ACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
.
>B1/1-55
GATACCAGCGGGATCATTATGCCACATTCTGATCTTGGACCTG....ATAGATCTGACT.
.
>C1/1-60
GATACCAGCGGGATCATTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
.
>C2/1-60
GATACCAGCGGGATCCTTATGCCACATTCTGATCTTGGACCTGCATTATAGATCTGACTT
.
>B2/1-61
GAT ... Voir la suite

Il y a 4 "e" dans $phrase

=()= est ce qu'on appelle en Perl un goatse, pas toujours connu du grand public.

En fait, c'est l'usage de l'opérateur d'affectation à une liste vide qui permet d'évaluer l'expression régulière dans un contexte de liste et dont le résultat est affecté à $count. Or la valeur de retour d'une affectation de liste évaluée dans un contexte de scalaire retourne le nombre d'élément contenu dans la rvalue de cet opérateur d'affectation, donc le nombre d'élément capturé par l'expression régulière.

Si vous souhaitez transposer un fichier tabulé, c'est à dire que les lignes de votre fichier deviennent des colonnes, voici une procédure qui peut vous aider.

Le code ci-dessous permet de convertir un fichier excel 2007 (ou antérieur) en fichier txt, csv ou autre fichier plat.

Le choix du séparateur est laissé à l'utilisateur.
Si l'on on précise un répertoire, le fichier convertit sera créé dans ce dernier, sinon, il sera créé dans le même répertoire que le fichier excel.
On peut choisir de convertir toutes les feuilles ou non du fichier excel en mettant -feuilles à 1 => tout sera convertit, ou à 0 et dans ce cas, à chaque feuille une confirmation sera demandée.

Attention : Nous avons utilisé ici la méthode print {$fh} $oWkC->Value, $Separateur;

Mais cette méthode peut nous générer des erreurs inattendues :
explication documentation o ... Voir la suite

Comme DateTime est le module préconisé, mais qu'il n'est pas disponible dans le Core, alors que POSIX l'est, il me semble que c'est une bonne alternative pour des utilisations "limitées".

Le code ci-dessous est compatible avec des machines acceptant des entiers sur 32 bits. Il utilise mktime et localtime.

Attention toutefois sur les machines 32 bits, les dates limites utilisables sont de 1904 à 2038. Pour utiliser des dates en dehors de cette plage, il faut s'en remettre aux modules spécialisés comme DateTime.

Il peut être utile de connaître le time d'une date, c'est l'inverse de time, localtime et gmtime. Cela se fait par exemple en php pour les connaisseurs via la fonction mktime. Comme d'habitude, il existe un module en Time::Local en perl déjà présent dans le CORE, donc pas besoin d'installation.

Ce module posséde deux méthodes timelocal et timegm qui renvoient le time. Il faut leur donner 6 informations sous forme de tableau ($sec,$min,$hour,$mday,$mon,$year).

Attention : $year sera bien l'année classique (avec + 1900), ex : 2007 et $mois sera compris entre 0 et 11 et non entre 1 et 12.

Nous trouver le time des dates 01/01/2000 et 05/12/2008



Vous pourrez maintenant jongler avec les tim ... Voir la suite

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