Apprentissage de Perl Résolu/Fermé

Question

Salut lami20j,

   Je n'aborderai pas ce soir le script que j'ai écrit et qui ne fonctionne pas. Ca va aller à plus tard car malheureusement j'ai d'autres travaux à effectuer. 

J'aimerais cependant pour débuter cette discussion poser une question très générale.

Q-1 Je suis très curieux de savoir si on peut lier Perl à Access (ou à toutes autres bases de données)? C'est-à-dire, par exemple, est-ce que je peux envoyer le contenu d'une variable Perl (par exemple $3) dans une table présente dans une base de données? (J'espère que c'est le cas car ça pourrait m'être très utile ... et peut-être à d'autres également!)

Merci

mindslight · Answer

Bonjour,
Oui, c'est possible, mais je ne suis pas expert dans le domaine,
je préfère donc pas te donner des mauvais conseils.
Il faut malheureusement, que tu attendes que quelqu'un de
plus expérimenté que moi te répondre.

lami20j · Answer

Salut,

Avec Perl on peut faire beaucoup des choses.
Il ne faut pas oublier qu'il y a le CPAN (Comprehensive Perl Archive Network) où on peut trouver pas mal de modules qui ferront le travail à notre place (j'ai oublié de dire que les perliens ce sont des paresseux - tu veux toujours apprendre Perl ;-))

Pour accèder aux bases de données il y a plusieurs modules
DBI
Class::DBI::MSAccess
DBD::ODBC
pour convertire une base Access vers une autre base DBIx::MSAccess::Convert2Db

pour les drivers
DBI::DBD

Voilà pour la question ;-))

Tobydélice · Answer

Bonjour, 

Apprendre PERL : https://perl.developpez.com/cours/

Si tu as des questions, tu as les réponses dans la F.A.Q PERL : https://perl.developpez.com/faq/

lami20j · Answer

Salut,

Si tu as des questions, tu as les réponses dans la F.A.Q PERL 

Pas toutes ;-)
Les questions peuvent variées.
Pour ce qui concerne la documentation Perl, le meilleur choix c'est le livre écrit par Larry WALL lui même Programmation Perl, je t'assure que ça vaut le coup si Perl t'interesse.
Si l'anglais ne te pose pas des problèpmes regarde les livres en ligne sur Perl
En 2ème position je mettrais  Documentation Perl en français

artagon7 · Answer

Merci pour vos réponses,

  Donc, c'est quand même bien que Perl puisse interagir avec des bases de données. J'étais à peu près certain que c'était le cas. Je vais essayer d'obtenir le livre de Wall et je vais aller faire un tour sur le CPAN pour avoir une vue générale des possibilités de Perl. Je vais également aller voir la FAQ dont parle Tobydélice.

Encore merci et salutations à tous,

artagon7 · Answer

Bonjour, Pour répondre à lami20j, mon but n'est pas d'en apprendre autant qu'un administrateur de réseaux Linux/Unix mais simplement d'en apprendre suffisamment pour les applications que je désire faire (traitement de fichiers sous forme de tri et interactions avec des bases de données et des chiffriers électroniques.) Je veux surtout mettre l'accent sur le langage C que je dois réapprendre (plus tard ce sera C++). Avec le C et la base de Perl, je serai en F-1. Les liens que tu m'as donnes concernant les modules DBI, DBD et ODBC vont m'etre tres utiles. Je voudrais soumettre un script qui tente de trier des lignes représentant des fichiers musicaux présents dans un répertoire (Mon script est basé sur un script que lami20j a écrit). Voici mes lignes a trier : -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1969]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 Les deux critères que j'ai choisis pour trier mes lignes sont : 1) le taux d'échantillonnage; 2) l'année. Donc, je devrais obtenir le résultat suivant : -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1969]-cadence_and_cascade-[166].mp3 J'obtiens plutôt -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1969]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 C'est-a-dire que rien ne bouge! Voici mon script Perl : #!/usr/bin/perl while(){ /^-(.*):\d{2}(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; chomp; push @nontrie,[$_,$2,$3,$4,$5,$6,$7]; } @trie = map {$_->[0] } sort { $a->[7] <=> $b->[7] || $a->[5] <=> $b->[5] } @nontrie; print "$_\n" for @trie; __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 Explication de mon script : /^-(.*):\d{2}\s(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; - : Toutes les lignes commencent avec le trait d'union (.*) : Prend tous les caracteres avant les deux-points : ($1) : : deux-points \d{2} : Apres les deux-points, il y a necessairement deux entiers \s : Espacement (\w) : Prend le caractere designe pour la langue, ici apres l'espacement : ($2) _ : Correspond au premier sousligne (\w{3}) : Correspond a la nationalite : ($3) _ : Correspond au deuxieme sousligne (\w*) : Correspond a l'artiste : ($4) $$ : Correspond a [ (\d{4}) : Correspond a l'annee : ($5) $$ : Correspond a ] -(\w*)- : Correspond au titre de la chanson : ($6) $$ : Correspond a [ (\d{3}) : Correspond au taux : ($7) $$\.mp3$/; : Correspond a ].mp3 Je trie ensuite par rapport a $7 et $5. Voici le script de lami20j qui trie des images par les valeurs des resolutions et par l'annee (et qui fonctionne bien). #!/usr/bin/perl while(){ /.*:\d+\s+(.*)$$(\d+)x(\d+)$$(\d{4})\..*/; chomp; push @nontrie,[$_,$2,$3,$4]; } @trie = map {$_->[0] } sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] || $a->[3] <=> $b->[3] } @nontrie; print "$_\n" for @trie; __END__ -rwxrwx--- 1 53460 2007-10-07 02:29 600px-V838_Mon_HST[600x600]1999.jpg -rwxrwx--- 1 53460 2007-10-07 02:29 abc[600x600]1999.jpg -rwxrwx--- 1 53460 2007-10-07 02:29 abc[600x600]1997.jpg -rwxrwx--- 1 53460 2007-10-07 02:29 Abc[600x600]1997.jpg -rwxrwx--- 1 53460 2007-10-07 02:29 acb[600x600]1997.jpg -rwxrwx--- 1 53460 2007-10-07 02:29 A00px-V838_Mon_HST[600x600]1999.jpg -rwxrwx--- 1 69991 2007-10-07 02:27 739px-Omega_Nebula[739x600]1996.jpg -rwxrwx--- 1 37021 2007-10-07 02:26 NGC2080[600x601]1998.jpg -rwxrwx--- 1 138525 2007-10-07 02:25 603px-Crab_Nebula[603x600]1997.jpg -rwxrwx--- 1 525752 2007-10-07 02:24 ESO97-13[1280x1280]1999.jpg -rwxrwx--- 1 88098 2007-10-07 02:24 600px-ESO97-13[600x600]1997.jpg Je ne comprends pas que le mien ne fonctionne pas. Ou est l'erreur? J'ai hate de savoir ce qui fait defaut! Merci, :-)

lami20j · Answer

Salut,

je n'ai pas le temps de regarder ce soir.
en revanche tu peux faire un print sur tes variables pour voir ce que tu obtiens, ainsi tu pourras peut être trouver l'erreur

#!/usr/bin/perl

while(<DATA>){
    /^-(.*):\d{2}(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/;
    print "\$2=$2,\$3=$3,\$4=$4,\$5=$5,\$6=$6,\$7=$7";
} 

 Pour répondre à lami20j, mon but n'est pas d'en apprendre autant qu'un administrateur de réseaux Linux/Unix 
Je n'ai rien dit moi ;-)

artagon7 · Answer

Je vais essayer ca immediatement.

Merci  :-)

artagon7 · Answer

Eh bien lami20j, je viens d'essayer ton petit truc et j'ai ete quand meme satisfait du resultat. Toutes les variables sont bel et bien assignees aux parametres que je voulais.

Je suis donc content de ne pas avoir fait d'erreurs de ce cote. J'ai modifie ta ligne en ajoutant des sauts de ligne /n pour que ce soit plus lisible.

  Le seul probleme c'est que ca ne trie pas!!! Ca devient donc encore plus mysterieux car je croyais avoir fait une erreur dans l'assignation des variables, ce qui n'est pas le cas. Et le tri, je le fais selon la procedure que tu as utilisee.

  Prends ton temps, je vais attendre.

Salutations, :-)

lami20j · Answer

Salut, 2 erreurs dans ton script 1. dans ton fichier entre l'heure et le 1er caractère qui est e il y a au moins un espace et on ne le vois pas dans ta regex ( j'ai ete quand meme satisfait du resultat. Toutes les variables sont bel et bien assignees aux parametres que je voulais. ça m'ettonne que tu vois tes variables, puisque moi j'ai çalami20j@debian:~/trash$ cat ccm.pl #!/usr/bin/perl # while(){ /^-(.*):\d{2}(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; print "\$2=$2,\$3=$3,\$4=$4,\$5=$5,\$6=$6,\$7=$7\n"; } __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 lami20j@debian:~/trash$ perl ccm.pl $2=,$3=,$4=,$5=,$6=,$7= $2=,$3=,$4=,$5=,$6=,$7= $2=,$3=,$4=,$5=,$6=,$7= $2=,$3=,$4=,$5=,$6=,$7= $2=,$3=,$4=,$5=,$6=,$7= revenons à ton script -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 ce qui fait que ta regerx devra être (voir en gras) /^-(.*):\d{2}\s*(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; au lieu de ce que tu as mis /^-(.*):\d{2}(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; 2. tu as oublié que les indices du tableau commencent à 0 et pas à 1 allez on va compter@nontrie,[$_,$2,$3,$4,$5,$6,$7]; 0 - $_ 1 - $2 2 - $3 3 - $4 4 - $5 5 - $6 6 - $7 donc le champ 7 est le 6ème élément et le 5 champ est le 4ème ce qui donne@trie = map {$_->[0] } sort { $a->[6] <=> $b->[6] || $a->[4] <=> $b->[4]} @nontrie; Voici ton script entier lami20j@debian:~/trash$ cat ccm.pl #!/usr/bin/perl while(){ chomp; /^-(.*):\d{2}\s*(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; push @nontrie,[$_,$2,$3,$4,$5,$6,$7]; } @trie = map {$_->[0] } sort { $a->[6] <=> $b->[6] || $a->[4] <=> $b->[4]} @nontrie; print "$_\n" for @trie; __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 et le résultatlami20j@debian:~/trash$ perl ccm.pl -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 Et voici ma version avec le résultat pour ton script (il faut eviter d'écrire une regex longue et très explicite quand nous n'avons pas besoin ;-)) Apprends à être paresseux (c'est une qualité pour les perliens et pas un défaut ;-DDlami20j@debian:~/trash$ cat artagon.pl #!/usr/bin/perl while(){ chomp; /.*(\d{4}).*(\d{3}).*\.mp3/; push @nontrie,[$_,$1,$2]; } @trie = map {$_->[0] } sort { $a->[2] <=> $b->[2] || $a->[1] <=> $b->[1]} @nontrie; print "$_\n" for @trie; __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 lami20j@debian:~/trash$ perl artagon.pl -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 Nous ne sommes pas obligé de capturer tous les sous-motifs, ça consomme de texte et si on a beaucoup des lignes à traiter alors le programme peut perdre en performances. Pense à utiliser (?: ) pour ne pas capturer ce que tu n'as pas besoin ou tout simplement de ne pas utiliser des paranthèses (et c'est ton cas) En fait les paranthèses on les utilise par exemple quand on veut capturer ou quand il y a des alternatives à faire (motif1|motif2), mais jamais juste pour entourer des motifs. Si le terme d'alternative je ne veux pas le capturer, c'est ici qu'intervies (?:motif1|motif2). Donc je peux regrouper sans capture. Dans ton cas on peux les enlever pouisqu'il n'y a pas d'alternative et pas non plus de capture. Ce qui donne en ton caslami20j@debian:~/trash$ cat ccm.pl #!/usr/bin/perl while(){ chomp; /^-.*:\d{2}\s*\w_\w{3}_\w*$$(\d{4})$$-\w*-$$(\d{3})$$\.mp3$/; push @nontrie,[$_,$1,$2]; } @trie = map {$_->[0] } sort { $a->[2] <=> $b->[2] || $a->[1] <=> $b->[1]} @nontrie; print "$_\n" for @trie; __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 lami20j@debian:~/trash$ perl ccm.pl -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3

artagon7 · Answer

Salut lami20j, Concernant la première erreur (l'espacement), j'ai fait une erreur dans le message #7. Je n'ai pas ajouté le terme \s dans mon script mais je l'ai ajouté dans l'explication que j'ai donnée! Quand, j'ai fait ton test d'affichage des variables hier, j'ai pris mon script dans lequel j'avais deja ajoute le terme \s et non ton script d'essai (voir plus bas). C'est la raison pour laquelle j'ai pu voir mes variables. “Ton” script test n'affiche pas les variables parce que tu as copié/collé directement mon script dans lequel il manque \s. Remarque : Toi tu mets \s* mais on peut mettre que \s car il n'y a qu'un seul espacement. Donc, si tu rajoutes \s (en gras) dans le script test suivant, ca affiche les variables. #!/usr/bin/perl while(){ /^-(.*):\d{2}\s(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; print "\$2=$2,\$3=$3,\$4=$4,\$5=$5,\$6=$6,\$7=$7\n"; } __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 Concernant la capture des motifs dont tu parles, c'est une bonne remarque. Je savais que je ne suis pas obligé de tous les prendre. C'est simplement parce que, dans mon cas, ce script est juste une ébauche d'un script plus général qui va me permettre de choisir les critères de tri au moyen d'un menu que je vais faire afficher à l'écran. Par exemple : Choix 1) Artiste et taux d'échantillonnage 2) Artiste et année 3) 4) etc ... Je dois donc, dans cette optique, capturer toutes mes variables et les garder. Donc le script que je garderai est le suivant (general) : #!/usr/bin/perl while(){ chomp; /^-(.*):\d{2}\s(\w)_(\w{3})_(\w*)$$(\d{4})$$-(\w*)-$$(\d{3})$$\.mp3$/; push @nontrie,[$_,$2,$3,$4,$5,$6,$7]; } @trie = map {$_->[0] } sort { $a->[6] <=> $b->[6] || $a->[4] <=> $b->[4]} @nontrie; print "$_\n" for @trie; __END__ -r-xr-xr-x 1 1977910 2002-04-01 15:43 e_can_heart[1976]-dreamboat_annie-[128].mp3 -r-xr-xr-x 1 5538881 2006-04-14 22:02 e_gbr_eno_brian[1975]-mother_whale_eyeless-[128].mp3 -r-xr-xr-x 1 5794058 2006-03-25 06:01 e_gbr_king_crimson[1970]-cadence_and_cascade-[166].mp3 -r-xr-xr-x 1 2428835 2007-08-04 03:05 e_gbr_peter_and_gordon[1965]-everyones_gone_to_the_moon-[128].mp3 -r-xr-xr-x 1 4304271 2006-04-02 00:36 e_gbr_sweet[1974]-restless-[132].mp3 Donc RESOLU! Merci beaucoup lami20j, :-))

lami20j · Answer

Salut,

 “Ton” script test n'affiche pas les variables parce que tu as copié/collé directement mon script dans lequel il manque \s. 

Je ne pouvais pas le savoir ;-))

 Remarque : Toi tu mets \s* mais on peut mettre que \s car il n'y a qu'un seul espacement.
Donc, si tu rajoutes \s (en gras) dans le script test suivant, ca affiche les variables. 
On n'est jamais sur, à mettre un quantificateur par précaution, n'est pas si mauvais ;-))

Bonne continuation ;-)

Apprentissage de Perl

12 réponses

Discussions similaires