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

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

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

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.