Photographie
Web
Envoi de mail en PERL
Aug 27th
On m’a demandé récemment un petit coup de main pour solutionner un petit problème de mail. En gros les méchants sys admins ont décidé, pour des raisons obscures que je n’évoquerai pas, que sendmail ne devait plus etre utilisé sur les serveurs. D’un coup, tout un tas de gens qui envoyaient des mails simplement avec la commande mail ou mailx se retrouvaient à ne plus pouvoir envoyer de mail. Cela les a bien mis dans l’embarras.
En même temps envoyer un mail n’est pas ce qu’il y a de plus compliqué. Le mail tel qu’on le connait est en fait régi par le protocole SMTP (Simple Mail Transfer Protocol). Examinons une simple session SMTP:
Script Perl: Un “find” customisé
May 31st
Je voulais profiter d’une demande qu’un collègue ma faite récemment pour rechercher de fichiers compris entre deux dates dans une arborescence donnée pour partager une astuce que permet l’opérateur ‘*’ (typeglob). Qui me permet ici d’aliaser les références des fonctions importées du module Fcntl dans un hash, et donc d’utiliser directement un paramètre fourni par l’utilisateur comme clé de ce hash choisir l’appel de fonction.
Perl : La vertu du code “strict”
Apr 1st
“Dis moi Vincent, comment fait-on pour déclarer un tableau en PERL ?” me demande Jérémie. “Tu utilises my @tableau=()….”. En même temps Jérome lance à la canonnade: tu n’as pas besoin de my, il te suffit d’utiliser @tableau= ou encore $tableau[n]= quand tu veux le créer.
Oui mais alors là NON ! Je sais qu’on peut ne pas déclarer ses variables, que c’est vachement pratique, que ça permet de faire du code compact et facile à écrire. Mais pour quelqu’un qui en est à sa 2è heure de PERL je dis NON. Il faut lui apprendre ‘use strict;’. C’est la première chose à apprendre quand on débute, un fichier PERL doit commencer par:
More >
Changement d’adresse
Mar 21st
L’adresse de ce blog change et devient: http://vin0x64.fr changez vos références
L’ancienne adresse va subir une “redirection” durant les mois qui viennent.
Mettez vos liens à jour 
More >
[PERL] Installation d’un package CPAN sans privilèges particuliers
Mar 20th
Il peut arriver qu’on ait besoin d’installer un package CPAN sans être root. Par exemple, parce qu’on n’a pas accès à ce compte… ou parce qu’on veut l’installer pour un utilisateur particulier, ou encore pour embarquer des modules perl avec sa propre application.
Je connais deux méthodes pour réaliser cela.
[PERL] une autre utilisation de l’opérateur “..”
Oct 11th
Tout développeur ou ingénieur système qui a mis son nez dans du code perl connait surement déjà l’opérateur “..” ou range qui est le plus souvent utilisé pour construire une énumération.
Par exemple: my @array = (1..10); remplit @array d’un tableau comprenant tous les éléments de 1 à 10.
[vincent@Amyrlin ~ 10:46:55] perl -e 'print join(" ",(1..10)),"\n"'
1 2 3 4 5 6 7 8 9 10
Un collègue m’a faire découvrir hier une utilisation que le pense assez méconnue de cet opérateur, et que j’ai trouvée fantastique à la lecture de son code.
English
