Discussion :

[Invité]

Bonjour à tous

Récemment, j'ai eu à accomplir une tache extrêmement simple pour "tagger" des fichiers texte que j'avais dans mon répertoire home, que je peux résumer de la façon suivante :

1°) prendre un nom de répertoire en argument
2°) lister (récursivement ou non) les fichiers dans ce répertoire ayant une extension donnée (par exemple, .c ou encore .h)
3°) appliquer en première ligne de ce fichier un commentaire qui serait de la forme // prefixe_numero_suffixe //, le numéro étant un identifiant unique pour chaque fichier trouvé à l'étape 2

Intuitivement, ayant déjà développé en python, je me suis servi de ce langage pour faire un script qui fonctionne. Grosso modo une centaine de lignes, avec commentaires, doc et code bien aéré. Donc en 20-30 lignes, tout y est.
Ensuite je suis tombé sur quelques articles parlant des onelines Perl, et j'ai été très impressionné par la concision du langage dans certains cas.
Aussi, je me demandais s'il n'y avait pas plus simple ou du moins plus élégant qu'un gros script monolithique, par exemple en combinant un inline perl avec des pipes.
Bien sûr, je demande plus par gout de l'esthétique et par curiosité qu'autre chose ^^;

[Jedai]

1°) prendre un nom de répertoire en argument
2°) lister (récursivement ou non) les fichiers dans ce répertoire ayant une extension donnée (par exemple, .c ou encore .h)
3°) appliquer en première ligne de ce fichier un commentaire qui serait de la forme // prefixe_numero_suffixe //, le numéro étant un identifiant unique pour chaque fichier trouvé à l'étape 2

Quel est cet "identifiant unique" ? Un simple compteur pourrait-il suffire ?
Dans ce cas, ceci pourrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

find2perl . -iname '*.[ch]' -eval '$g++; tie my @truc, q(Tie::File), $name; unshift @truc, qq(//prefix-$g-suffix)' | perl -MTie::File

Tout est fait en Perl, du listing de fichier à la modification. Cette ligne marche sous Windows directement (en remplaçant les ' par des " et en supposant que vous ayez Perl installé).

Une approche un peu plus Unix utiliserait find pour trouver les fichiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

find . -iname '*.[ch]' | perl -i -pe 'if($.==1){$g++;s{^}{//prefix-$g-suffix\n}}'

(pas testé, il est possible qu'il y ait un petit problème avec $. et ARGV)

--
Jedaï

[Invité]

Merci beaucoup

Pour m'entrainer, j'ai essayé de faire 2 scripts équivalents un peu plus évolués en Perl et Python, et effectivement j'arrive à faire bien plus court.
J'aurais une petite question qui m'intrigue toutefois

Supposons que j'aie une chaine qui représente une expression régulière. Comment faire pour l'utiliser en l'état avec les opérateurs s// ou //?

Dans l'idée, ça donnerait quelque chose du genre

my $regex = q(^\w{3}\d+$);
......
et ensuite

$ma_chaine =~ s/$regex//g

[Woufeil]

Et bien, dans l'idée, c'est pareil que dans la pratique

Perl arrive à deviner quand tu mets un $ si il signifie fin de chaîne ou simplement si tu veux interpoler une variable. Enlève juste le q() de ta variable et ça fonctionnera parfaitement

[Jedai]

Enlève juste le q() de ta variable et ça fonctionnera parfaitement

q(...) est équivalent à '...' c'est donc une très bonne idée de l'utiliser ici (pour éviter l'interpolation de \w ou \d ou $).

Lorsqu'une regexp est interprété, il y a en fait deux phases : d'abord les variables sont interpolés comme dans une chaîne entre "" (sauf le $ final éventuel), puis la regexp est compilée. De ce fait ton code est parfaitement correct.

Néanmoins il y a également une deuxième approche à la question, qui est de placer une regexp déjà compilé dans une variable, ceci se fait avec l'opérateur qr// et est parfois préférable pour les performances, ou souhaitable pour la lisibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
my $regex = qr/^\w{3}\d+$/;
 
$ma_chaine =~ s/$regex//g
# ou
$chaine =~ $regex;
# équivalent à
$chaine =~ m/^\w{3}\d+$/;

NB: Parfois l'on souhaite intégrer littéralement une chaîne de caractère à une regex (autrement dit sans tenir compte des caractères spéciaux qui pourrait s'y trouver), dans ce cas il faut utiliser quotemeta() sur la chaîne avant de l'intégrer à la regex, ou utiliser les caractère spéciaux \Q et \E qui ont le même effet mais directement dans la regex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $quoted = quotemeta($chaine_litterale);
 
# va matcher un nombre suivi du contenu exact de $chaine_litterale
$chaine =~ m/\d+\s$quoted/; 
#pareil, suivi d'un autre mot
$chaine =~ m/\d+\s\Q$chaine_litterale\E\s\w+/;

--
Jedaï

[Woufeil]

Honte à moi
J'ai cru qu'il avait écrit qw (l'équivalent d'une liste de mot donc). En même temps, q() n'est pas utilisé souvent