Perl

16mai08

Aujourd’hui, Perl.

J’ai reçu un mail urgent pour une mission de 6 mois voir plus pour l’étude et la conception d’une application métier en Perl. 

Bien évidemment, je me suis empressé de répondre avec toutes les informations qui vont bien.

Ne connaissant le Perl que dans la théorie (lu mais jamais pratiqué). J’ai profité de cette journée pour m’y atteler, je me suis donc rendu sur la documentation française en ligne, que j’ai en version papier mais non à jour.

J’aurais très bien pu prendre la version officielle anglaise, mais la traduction est très bien et je la connaissais déjà.

 

Quelques petits test donc, ainsi que le test du module DBI, qui sert d’interface entre Perl et les bases de données.

J’écris donc mon petit script, tout simple, juste pour tester, un Helloworld quoi. Je lance ma petite Perle pour interpréter ma créature, et là, comme bien souvent avec les interfaces de base de donnée, driver non trouvé. Ca arrive un peu trop souvent dans tous les langages je trouve.

Enfin bref, une petite ligne de commande histoire de savoir quels sont les drivers que j’ai à disposition et là surprise:

charly$ perl -we 'use strict; use DBI; print map "$_\n",DBI->available_drivers;'
DBM
ExampleP
File
Gofer
Proxy
SQLite
Sponge

Ni MySQL, ni PostgreSQL, y’a bien SQLite mais je ne l’ai jamais encore essayé et de ce que j’en ai vu, j’aime pas vraiment…

Bon ben, installation d’Xcode Tools, pour pouvoir compiler le driver. Donc téléchargement des dernières versions de DBI et de DBD MySQL tant qu’à faire, par ici.

Je commence par le DBI, j’extrait l’archive dans /Library/Perl/, je me place dedans, je lance Makefile.PL avec perl, je compile, j’installe, niquel.

La même chose avec DBD, et là “can’t exec mysql_config” … Et ça continu, je fouille donc dans le dossier de MAMP, puis je relance avec l’option –mysql_config=/Applications/MAMP/Library/bin/mysql_config

Et là niquel, tout roule, même cette petite ligne de commande: 

perl -we 'use strict; use DBI; print "YABON!\n" if (grep(/mysql/,DBI->available_drivers));'

Sinon, pour la source de mon tout premier script Perl (qui ne fait pas grand chose d’ailleurs…), c’est par ici.

Classé dans:Uncategorized   |  Leave a Comment