Discussion :

[e_laurent]

Bonjour à tous,

Je dois actuellement reprendre un code déjà existant en perl et quelques lignes me posent des problèmes...

sub Header {

my ($v,$fichier,$clef)= @_;
my $header = $clef."_profile.header";
my $ch = "!(/^\\($v/ .. /^\\)/)";
system (" perl -ne 'print if $ch' $fichier > $header");
}
Je dois préciser que $v est un fichier comportant une suite de nombres.

Pouvez-vous m'éclairer sur la signification de la ligne en rouge et m'expliquer un peu chaque terme?

Et est ce que if (@champ == 2) correspond à verifier si le tableau champ est de taille 2?

Merci beaucoup

[messinese]

lu'!
Pour ce qui est des regex , je lmaisse quelqu'un d'autre te répondre pour les détails..
Mais en ce qui concerne :

Code :

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

if (@champ == 2)

je pense que
cela correspond a la conditions "Si @champ équivaut a 2" et ,donc,ne teste pas la taille de ton tableau .

[Schmorgluck]

Et est ce que if (@champ == 2) correspond à verifier si le tableau champ est de taille 2?

Oui, c'est exactement cela. Un tableau, en contexte scalaire, renvoit son nombre d'éléments.

Pour le reste, je suis encore à essayer de comprendre le but de la manoeuvre. Ça m'a l'air outrancièrement alambiqué comme bouzin.
Et je ne vois pas bien l'intérêt de la variable $ch.
Perso, de ces deux lignes

Code :

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

1
2
my $ch = "!(/^\\($v/ .. /^\\)/)";
system (" perl -ne 'print if $ch' $fichier > $header");

j'aurais plutôt fait une seule :

Code :

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

system (" perl -ne 'print if !(/^\\($v/ .. /^\\)/)' $fichier > $header");

Ou mieux

Code :

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

system (" perl -ne 'print unless (/^\\($v/ .. /^\\)/)' $fichier > $header");

Mais ça reste pas super.
Ce que fait cette ligne, c'est l'équivalent, si $v a pour valeur "carotte", $fichier a pour valeur "concombre" et $header a pour valeur "tomate_profile.header", de taper sur la ligne de commande

Code :

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

perl -ne 'print unless ( /^\(carotte/ .. /^\)/ )' concombre > tomate_profile.header

ce qui écrit dans le fichier tomate_profile.header toutes les lignes du fichier concombre sauf celles qui sont entre une ligne commençant par (carotte et une ligne commençant par ). Je ne sais pas trop quel est le but de la manoeuvre exactement.

[e_laurent]

Merci beaucoup à vous deux.

Au niveau de la logique de la regexp je suis un peu perdu il doit me manquer quelques notions....

On regarde si l'expression n'est pas vérifiée grâce à !
!(/ expression /) ??

Ensuite le premier guillemet dit que l'expression commence par (quelque chose...)

Mais après je ne vois pas l'interet de mettre 2 fois "\"
(/^\\($v/ .. /^\\)/)
pour moi cela reviens à dire que l'on regarde si l'expression commence par le symbole "\" et non pas par "(" non?

Et apres $v je ne comprend plus... lol

En tout cas merci encore pour vos réponses.

[Antoun]

Le ! initial n'a rien à voir avec les regex, c'est juste un NOT, d'où la remarque de Schmorgluck qui aurait préféré unless à if !.

Quant à la regex... il me semble qu'il y en a en fait deux : /^\\($v/ et /^\\)/, séparées par un ..
Je ne comprends absolument pas ce que ça fait, mais je peux quand même te décortiquer le truc :

• les / au début et à la fin ont un simple rôle d'encadrement, ils délimitent la regex.
• Le ^ au début est une ancre, cela veut dire que la regex doit commencer au début du texte.
• \\ est un \ échappé
• \\( est en fait le moyen d'écrire \( avec la double interpolation... en d'autres termes, c'est une parenthèse ouvrante échappée

J'interprète donc la première regex comme "le texte (à savoir la variable par défaut $_) commence par une parenthèse ouvrante suivie du contenu de la variable $v" et la seconde comme "le texte commence par une parenthèse fermante".

Schmorgluck, pourrais-tu expliciter ce que fait la syntaxe unless (truc .. machin) ?

[Schmorgluck]

Aïe ! La question qui tue ! Pas simple à expliquer.

Par où commencer ?

L'opérateur .. est ce qu'on appelle l'opérateur d'étendue (range operator). On le connait surtout (quand on débute) en contexte de liste comme moyen de créer facilement une liste d'entiers avec une syntaxe du genre (1..10), mais c'est loin d'être son seul usage. En contexte scalaire, utilisé avec des tests (souvent des regex, mais pas nécessairement - avec des entiers c'est le numéro de la ligne courante qui est testé), il a pour effet de renvoyer true si le premier terme a eu la valeur true à un moment donné, tant que le deuxième terme n'a pas renvoyé true. Ça, c'est une façon rigoureuse de le dire, mais je suis bien conscient que ça n'est vraiment pas clair du tout. Le mieux est sans doute de se le représenter comme un interrupteur, avec le premier test comme condition pour le mettre en position "on" et le second comme condition pour le mettre en position "off". En termes pratiques, on s'en sert souvent pour sélectionner une partie d'un fichier placée entre deux délimiteurs. Dans le cas qui nous intéresse, c'est apparemment pour exclure ladite partie, mais c'est juste le coup de remplacer le if par un unless, ou de mettre une négation avec ! (soit dit en passant, c'est vrai que j'ai un faible pour le mot-clé unless - Perl a la réputation, pas totalement injustifiée, d'être un langage pouvant facilement être difficile voire quasi-impossible à lire (l'opérateur .. n'y est pas totalement étranger, d'ailleurs), mais un mot-clé comme unless, utilisé à bon escient, améliore considérablement la lisibilité du code, à mon avis, du coup je l'utilise souvent).

Donc, pour en revenir à .. c'est une sorte d'interrupteur flip-flop. Pour prendre un exemple simple :

Code :

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

1
2
3
4
5
6
7
while(<>)
{
  if(/debut/../fin/)
  {
    print;
  }
}

Ce code va imprimer les lignes du fichier d'entrée situées entre une ligne contenant le mot "debut" et une ligne contenant le mot "fin", inclues. À noter que si "debut" et "fin" sont sur la même ligne, cette ligne sera imprimée. Il existe une variant à trois points ... dont le fonctionnement est subtilement différent : si le premier terme est évalué à true lors d'un passage, le second terme n'est pas testé lors du même passage. Cela change le résultat si "debut" et "fin" sont sur la même ligne : la ligne sera affichée, ainsi que les suivantes, et le test ne renverra faux qu'une fois que "fin" sera à nouveau rencontré. L'intérêt de l'opérateur ... par rapport à .. réside principalement dans le cas où la condition de "début" et celle de "fin" sont identiques, ce qui, en pratique, est rarissime (parce qu'on considère généralement que c'est une mauvaise idée de construire un fichier ainsi).

Je commence à m'étendre exagérément sur la question, je crois. Ces opérateurs sont très pratiques, mais peuvent être une vraie plaie à expliquer*. Comme à mon habitude chaque fois que j'essaie d'expliquer le fonctionnement de cet opérateur (et de sa variant à trois points), je vous renvoie à cette page au cas où je n'aurais pas été très clair.

* Beaucoup de choses en Perl sont plus difficile à expliquer qu'à utiliser. C'est le résultat de choix délibérés de la part de Larry Wall : entre la facilité d'utilisation et la facilité d'apprentissage, c'est la première qui est privilégiée, parce qu'on n'a besoin d'apprendre qu'une fois.

[Jedai]

Tu peux aussi avoir une explication très complète et en français sur cette page de la doc Perl. Je sais que les tutoriels sont bien, mais n'oubliez jamais que Perl vient avec une excellente documentation, elle contient souvent tout ce dont vous avez besoin.

--
Jedaï

[Antoun]

Je ne connaissais que la variante (1..10), mais celle-ci m'a l'air assez balaise ! Merci beaucoup pour l'explication détaillée !

[e_laurent]

Désolé de ne pas avoir pu vous répondre plus tôt. En tout cas merci bien pour vos réponses! Je n'hésiterais pas à vous reposer des question ehehe!

Merci encore.