Planet
Blog

1. Je ferais un tour des points tech iques dans un prochaine article

Perl Console est écrit par Alexis Sukrieh. Il existe un paquet pour les distributions Debian est dérivées. Après avoir essayé plusieurs REPL pour Perl, j’ai choisis Perl Console. Il est simple, fait exactement ce que je cherchais, il y a la complétion et il est écrit par l’auteur de Dancer un framework web que j’utilise.

Page de présentation

1. Read-eval-print loop

Nous allons commencer par l’installer, pour Debian et dérivés il existe un paquet.

sudo apt-get install mairix

Il nous faudra un fichier de configuration pour mairix qui sera /home/hobbestigrou/.mairixrc Ci-dessous un exemple de configuration :

# the base where our mail is stored, and where we put the mairix database
base=~/Mail
database=~/.mairix/database
 
# this needs to be a full path for our msearch script (which deletes the
# mbox if it exists to replace it with new search results)
mformat=mbox
mfolder=/home/utilisateur/Mail/mairix-search
 
# index everything in $base, recursively
mbox=*...
 
# don't index our spam folders
omit=Spam:.procmail.log

Je pense que le fichier est assez commenté et ce passe d’explication.

Pour l’utiliser avec Mutt il vous faudra faire deux ou trois petites choses. Nous allons commencer par ajouter ce script bash dans notre répertoire .mutt , si il n’existe pas créer le.

  #!/bin/sh 
  #
  # $Id: msearch.sh 30 2007-04-08 15:41:53Z vdanen $
  #
  # wrapper script to execute mairix searches
 
  mairix=/usr/bin/mairix
  mairixrc=~/.mairixrc
 
  mbox="`grep mfolder ${mairixrc} | cut -d '=' -f 2`"
  echo "Deleting old results folder..."
  rm -f ${mbox}
  echo "Updating index..."
  ${mairix} -p
  echo "Executing mairix search..."
  ${mairix} $*

Ensuite dans le fichier de configuration mutt $HOME/.muttrc nous allons ajouter des macros.

  macro index "\em"    "<shell-escape>$HOME/.mutt/msearch.sh " "Run a Mairix search"
  macro index "\ef"    "<change-folder-readonly>=mairix-search\n" "Switch to Mairix search results"
 
  macro pager "\em"    "<shell-escape>$HOME/.mutt/msearch.sh " "Run a Mairix search"
  macro pager "\ef"    "<change-folder-readonly>=mairix-search\n" "Switch to Mairix search results"

La combinaison esc+m Permettra de lancer une recherche et la combinaison esc+f permettra de se déplacer dans la boite. Nous ajouterons aussi toujours dans le .muttrc

  mailboxes =mairix-search

Vous pourrez désormais essayer de lancer une recherche.

  #Vous verrez une ligne de ce type, indiquer l'occurence à la suite. 
  Commande shell : /home/utilisateur/.mutt/msearch.sh une_recherche

Il est possible de filtrer pour chercher uniquement dans le sujet par exemple avec s:une_recherche, ou dans le corps avec b:une_recherche. Si rien n’est spécifié il cherchera dans tous les champs. N’hésiter pas à lire le man de mairix pour connaître toutes ses possibilités. Lorsque vous lancerez une recherche pour la première cela sera un peu long selon la quantité et poids des mails, car il va créer l’index. Ensuite cela sera rapide, c’est incrémental c’est-à-dire qu’il va chercher que dans les nouveaux mails pour récréer l’index.

Site du projet

En Perl on utilise généralement un hash pour répondre à ce genre de problème. Nous allons suivre cette méthode et utiliser un hash qui va s’occuper de mémoriser les éléments déjà rencontré. Je vais montrer un exemple de code et l’expliquerai après¹.

  #Tableau d'origine
  my @tab = ('la', 'toi', 'la', 'si', 'ba', 'ben', 'la');
 
  #Déclaration d'un hash vide qui contiendra les élément déjà rencontré
  #et d'un tableau vide qui contiendra le résultat.
  my %deja_vu = ();
  my @uniques = ();
 
  #Parcours du tableau
  foreach my $objet (@tab) { 
      #Si la valeur n'est pas déjà dans le hash deja_vu
      unless($deja_vu{$objet}) {
          #Stocke la valeur de l'itération comme clé dans
          #le hash deja_vu 
          $deja_vu{$objet} = 1 ;
          #Stocke la valeur dans le tableau uniques
          push(@uniques, $objet);
      }
  }
  print "Tableau avec des doublons (@tab)", "\n";
  print "Tableau sans doublons (@uniques)", "\n";

La deuxième ligne contient notre tableau de départ. On peut constater qu’on rencontre certaines valeurs plusieurs fois notamment la valeur la, qui est présente trois fois.
A la ligne 6 nous déclarons et initialisation un hash vide qui contiendra comme clé les valeurs déjà rencontrés.
Ligne 7 nous déclarons et initialisation un tableau vide qui sera le tableau final, dans lequel on va ajouter la valeur si elle n’est pas déjà connu.
Ligne 12 nous avons une condition qui test si la valeur du tableau n’existe pas déjà dans le hash, si elle n’existe pas on rentre dans la condition. Ce qui signifie qu’à la première itération il va tester si la valeur la est déjà une clé du hash deja_vu, elle ne l’ait pas on rentre donc dans la condition, mais à la troisième itération on a de nouveau la valeur la, elle est déjà présente dans le hash on ne rentre donc pas dans la condition.
Ligne 15 on insère la valeur comme clé. Pour la première itération nous allons donc stocker la clé la :

    la => 1,

A la ligne 17 on ajoute la valeur à la fin du tableau avec la fonction push. Pour la première itération nous allons donc ajouter la valeur la au tableau uniques. La deuxième itération va ajouter toi elle sera ajouté après l’élément la à l’indice 1, et ainsi de suite. Nous allons donc retrouver le même structure que le tableau de départ, les valeurs seront stockés dans le même ordre avec les doublons en moins.

Dans les deux dernière lignes nous affichons les deux tableaux trié et non trié.

En conclusion ceci est un exemple, il en existe d’autres, mais cette solution fait partie de celle qui répondra à votre problème.

1. Le code source est tiré du Perl Cookbook

Sur un système Gnu/linux lorsqu’on lance certaines applications comme crontab par exemple, nécessitant une édition, la dite application fera appel à l’éditeur configuré par défaut. Ce qui est généralement Nano donc pas génial, bien-sûr ce n’est que mon avis. Fort heureusement il est possible de modifier cela et configurer notre éditeur de texte favori, tout le monde est au courant que c’est Vim le meilleur. Pour ce faire nous allons modifier les variables d’environnement. Pour une application permanente nous éditerons le fichier $HOME/.bashrc et nous ajouterons ces quelques lignes.

EDITOR=vim
VISUAL=$EDITOR
export EDITOR VISUAL

Utilisez la commande source pour mettre à jour votre bashrc.

source $HOME/.bashrc

Utilisez la commande env ou afficher les variables avec echo pour vous assurer que cela a été pris en compte.

echo $EDITOR
echo $VISUAL

Il est préférable de bien configurer les deux variables.Viusal, est un ancien terme qui ne devrait plus être utilisé, mais certaines applications y font encore appelle. Il sera possible de configurer n’importe quel éditeur, mais il est recommandé d’en choisir un en mode texte. Il sera possible si vous le désirez de choisir un éditeur muni d’une GUI, mais n’oublier pas que cela ne fonctionnera que si X est disponible.

Je vais présenter un peu l’idée du fonctionnement des tableaux en Perl. Pour commencer le plus simple serait de prendre un exemple du monde réel. Par exemple si on vous demande de citer le nom des joueurs d’une équipe de football. Vous allez tout simplement réciter une liste, vous allez donner un nom l’un après l’autre dans un ordre particulier. Perl dispose de primitives puissantes pour manipuler les listes et les tableaux. Il existe une différence entre les listes et les tableaux en Perl bien quel soit minime.

("Barthez", "Zidane", "Henry");

Nous avons donc une liste de trois footballeurs faisant parti de l’équipe de France en 98³ , dans l’ordre⁴ . On va maintenant stocker cette liste dans une variable pour pouvoir la réutiliser, nous allons utiliser un tableau.

my @players = ("Barthez", "Zidane", "Henry");

On peut constater que les deux exemples sont des groupes ordonnés de valeurs, la seul différence c’est qu’un tableau et une variable qui porte un nom, il sera donc possible d’effectuer des actions sur un tableau comme modifier sa longueur, alors qu’une liste est une notion plus éphémère. Finalement on peut se présenter un tableau comme une variable et une liste comme les valeurs qu’elle contient.

Comme-dit c’est une différence minime, mais qui est tout de même bien présente. Il ne sera par exemple pas possible d’effectuer des opérations sur une liste.

pop(@tab);

Cela fonctionne.

pop(1,2,3);

Ici par-contre il y a un problème la fonction pop à besoin d’un identifiant et pas d’une liste de valeurs.

En conclusion, ce qu’il faut retenir c’est que les listes et les tableaux sont des groupements ordonnés de scalaires. Comme dans tout langage il existe des opérateurs et fonctions travaillant sur des listes et des tableaux proposant un accès plus rapide et pratique qu’un accès manuel aux éléments.

En Perl il n’est pas possible d’imbriquer des parenthèses pour créer une liste de liste.

my @tab_imb = ("foo", "bar", "un", "exemple");
my @tab_imb = ("foo", "bar", ("un", "exemple"));

Les deux lignes sont donc équivalentes. Si notre besoin est un peu plus complexe et qu’on a besoin de manipuler une structure de données un peu particulière comme un tableau de hachage, ou un tableau de tableau, il nous faudra utiliser des références. Les scalaires peuvent contenir des nombres, des chaines mais aussi des références. En Perl c’est toujours en utilisant des références que l’on met en place des structures complexes à plusieurs niveau. C’est de cette manière que sont implémentés des tableaux à deux dimensions, sous la forme de tableaux de références à des tableaux, un peu de la même manière qu’avec le langage C, les tableaux à deux dimensions sont des tableaux de pointeurs vers des tableaux.

Les scalaires d’un tableau sont des éléments et on peut y accéder en indiquant leur indice. Comme dans beaucoup de langage le premier élément d’un tableau en Perl est égal à 0.

my @players = ("Barthez", "Zidane", "Henry");

Le scalaire Barthez se trouve en première position du tableau, mais comme-dit on y accède de cette manière @players[0]. L’élément Zidane ce trouve en deuxième position et on y accède de cette manière @players[1].

En conclusion on a vu une première approche du fonctionnement des tableaux en Perl, on connaît à présent la différence entre un tableau et une liste, on sait comment accéder à un élément du tableau et on a une vague idée du fonctionnement des structures de données un peu plus complexe. Cela n’est bien-sur pas suffisant, mais vous permet de pouvoir commencer à utiliser des tableaux, comme-dit j’écrirai plus souvent la prochaine fois il est possible qu’on voit, comment supprimer les doublons d’un tableau, ou encore comment utiliser des tableaux dans ses programmes, ou alors comment trier un tableau.

1. En espérant que je trouve des choses à raconter assez souvent, ce n’est pas toujours simple
2. En Perl, je pourrais par exemple m’aider du CamelBook, ou encore Perl le Livre de recettes et de différente documentation
3. championne du monde
4. L’ordre étant dans ce cas les postes respectif de chacun, gardien de but, ensuite milieu de terrain, puis pour finir attaquant

Pour installer Vimana il vous faudra passer par le CPAN. Il est disponible que pour des systèmes de type Unix, par exemple Gnu/linux, Mac OS X, BSD etc… Il n’est pas portable sur Windows.

sudo cpan Vimana

Une fois installé vous pourrez commencer par mettre à jour l’index.

vimana update

Pour chercher un script ou un plugin.

vimana s Perl

Le résultat vous retourna donc des scripts concernant Perl² .

Vous pourrez aussi avoir des informations sur un script.

vimana info omniperl

Pour installer un script.

Vimana i autocomplop

Si le script n’est pas disponible sur vim.org, mais qu’il utilise un repository Git il sera possible d’indiquer le chemin du repository.

vimana i git:git://path/to/git/repository

Pour finir il est aussi possible d’installer un script depuis un répertoire.

git clone git://path/to/git/repo.git
cd repo
vimana i .

Pour supprimer un script.

vimana remove autocomplop

Ou encore

vimana remove autocomplop --force

En conclusion, c’est un outil qui peut-être très pratique et faire gagner du temps, ça évitera de se rendre à chaque fois sur vim.org pour télécharger le script ou faire une recherche.

Vimana sur le CPAN
Vimana sur github
Blog de Yo-An Lin

1. Il va les chercher sur vim.org
2. Ayant Perl dans le nom ou la description du script

def HelloWorld() :
    """ Une simple fonction qui affiche un message à l'écran """
    print "HelloWorld !\n"

La description sera donc disponible via la pydoc.

En Perl nous avons le format Pod¹ , la bonne vielle documentation.

Pod est un lagage de balisage qui va permettre d’écrire de la documentation pour Perl, pour vos programmes Perl, ou encore pour vos modules Perl. Il sera ensuite possible de convertir POD dans différents formats notamment du texte brute, HTML, page de man. Je vous expliquerai dans un prochain article comment utiliser POD.

Documentation POD sur enstimac

1. Plain Old documentation

git config --global color.branch auto
git config --global color.diff auto
git config --global color.interactive auto
git config --global color.status auto

Ce qui donnera dans le fichier de configuration ~/.gitconfig :

[color]                                                                                                                                               
        branch = auto
        diff = auto
        interactive = auto
        status = auto

C’est tout de même plus agréable de voir un peu de couleurs.

Si vous êtes désireux d’avoir des alias avec Git similaire à svn pour le status, commit, branch etc… Vous pourrez encore une fois l’indiquer via git config.

git config --global alias.st status
git config --global alias.ci commit
git config --global alias.co checkout
git config --global alias.br branch

Ce qui vous permettra maintenant de taper par exemple :

git st #En lieu et place de git status
git ci #à la place de git commit
git co #à la place de git checkout
git br #à la place de git br

Ce qui est un peu plus court ça fera du bien à vos doigts. Je rappel que la commande git checkout permet de changer de branche et non de récupérer les sources d’un dépôt contrairement à svn. J’avais déjà indiqué les commandes à utiliser pour, indiquer des informations sur votre nom d’utilisateur et l’éditeur lorsque j’avais présenté Git.

Il peut-être très pratique d’avoir accès à un aide-mémoire des diverses commandes disponible, car il arrive d’avoir de trous. Il en existe pour cela cheat git. Il existe aussi des versions svg ou png Disponible ici.

C’est la méthode à préconiser pour une intégration parfaite à votre distribution.

Il peut arriver tout de même, qu’il n’existe pas de paquet pour le module que vous souhaitez installer, dans ce cas là, vous pouvez passer par le CPAN.¹ Le module CPAN.pm a été préinstallé sur votre machine. Il va vous permettre d’installer et configurer des modules. Lors du première appel à cpan, il vous faudra répondre à une série de questions, notamment le chemin de gunzip. Généralement les réponses par défaut sont correctes, mais tâchez tout de même, à toujours vérifier, c’est important de faire attention à ce que l’on fait. Ensuite vous pourrez installer des modules via le cpan, soit en lançant la commande cpan, et ensuite au prompt cpan indiquez install suivi du nom du module :

install Net::Twitter

Soit en indiquant en argument le module à installer :

sudo cpan Net::Twitter

La dernière solution consiste à installer le module à la main, notamment lorsque le module n’est pas disponible sur le CPAN. Il vous faudra alors récupérer les sources généralement compressées au format tar.gz. Ensuite décompressez l’archive, déplacez-vous dans le répertoire, lisez le README, pour finir effectuez les manipulations qui sont généralement perl Makefile.pl qui va générer le makefile, make, make test et enfin sudo make install.

wget http://search.cpan.org/CPAN/authors/id/M/MM/MMIMS/Net-Twitter-3.05000.tar.gz
tar -zxvf Net-Twitter-3.05000.tar.gz
cd Net-Twitter-3.05000/
perl Makefile.PL
make
make test
sudo make  install

Si tout s’est passé et que vous n’avez pas eu de message d’erreur le module devrait être installé. J’ai pris un mauvaise exemple, mais je n’avais pas de module non disponible sur le CPAN sous la main. C’était pour montrer la démarche. Pour vérifier que le module est bien installé :

perl -MNet::Twitter -e 1

Si aucun message ne s’affiche, cela signifie que le module est bien installé.

En revanche, si vous avez ce genre de message :

Can't locate Net/Twitter.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .).

C’est qu’il y a eu un problème quelque part.

Concernant les bibliothèques que vous être en train de développer ou qu’un ami vous a gentiment fourni et que vous aimeriez tester. Vous pourrez créer un répertoire lib/perl par exemple, dans votre home personnel et indiquer le chemin à la variable d’environnement PERL5LIB :

export PERL5LIB="$HOME/lib/perl"

Une autre solution consiste à indiquer le chemin directement dans le source :

use lib $ENV{'HOME'} . "/lib/perl";

Voilà, vous êtes maintenant paré à installer des modules Perl de différentes manières. N’oubliez pas, Perl, c’est bien et ce qui fait sa grande force est justement son nombre de bibliothèques disponibles sur le CPAN.

1. Comprehensive Perl Archive Network qui regroupe la plupart des archives logicielles et bibliothèques écrites en Perl.