Bonjour, j'essaie depuis deux jours d'effectuer un grep multiligne sur un certains nombre de fichier sources pour en extraîres les commentaires.
Je cherche à sélectionner des patterns de ce genre :
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
au milieu de //
// Conversion format with test.
//
- to_ulongint:ULONGINT <-
( //? {self >=0};
//? {self <=# (ULONGINT.maximum)};
to_raw_ulongint
);
J'ai donc créé l'expression suivante :
^\s*-([.]*)<-\s*\(*\s*//(.*)
Lorsque je la teste avec un outil comme regexp-coach, je constate qu'en gros elle me sélectionne ce que je veux.
Mais voilà, problème, je n'arrive pas à la faire marcher avec perl. Principalement, à mon avis, car il s'agit de détecter des pattern de plusieurs lignes.
Lorsque je tente une commande du genre
perl -n -0777e 'print if /^\s*-[^<]*<-\s*\(*\s*(?:\/\/.*$\s*)+/mx' numeric.li
Il m'affiche tout le fichier. J'ai bien essayé des configurations différentes, genre tester -n ou -p, mettre ou pas -0777 avec les modificateurs m et x, cela dans toutes les combinaisons possibles. Mais je n'obtiens rien que soit une ligne vide, soit l'intégralité du fichier.
Encore une exemple pour la route. Je met en italique ce que l'utilitaire regexp-coach (utilitaire permettant de tester une regexp au format perl, et surlignant ce qui matche dans la chaîne cible
- to_hexadecimal_format s:INTEGER :STRING <-
// Convert the hexadecimal view of `self' into a new allocated
// STRING. For example, if `self' is -1 the new STRING is
// "FFFFFFFF" on a 32 bit machine.
// Note: see also `to_hexadecimal_in' to save memory.
(
+ result:STRING;
result := STRING.create 8;
to_hexadecimal_in result format s;
result
);
- to_hexadecimal_in buffer:STRING <-
// Append in `buffer' the equivalent of `to_hexadecimal'. No new STRING
// creation during the process.
( + val:SELF;
+ i,old_count:INTEGER;
? {buffer!=NULL};
(self==0).if {
buffer.extend '0';
} else {
i := buffer.count + 1;
val := self;
{val != 0}.while_do { //JBJB
buffer.extend ((val & 15).hexadecimal_digit);
val := val >> 4;
};
old_count := buffer.count;
{i >= old_count}.until_do {
buffer.swap i with old_count;
old_count := old_count - 1;
i := i + 1;
};
};
);
Forum Programmation.perl grep multi-ligne
26
juil.
2006
# Ouuups
Posté par Ontologia (site web personnel) . Évalué à 2.
La bonne est :
^\s*-[^<]*<-\s*\(*\s*(?:\/\/.*$\s*)+
« Il n’y a pas de choix démocratiques contre les Traités européens » - Jean-Claude Junker
# Slurp mode
Posté par daggett . Évalué à 3.
(man perlvar, ou http://perldoc.perl.org/perlvar.html )
[^] # Re: Slurp mode
Posté par Ontologia (site web personnel) . Évalué à 2.
#!/bin/perl
undef $/;
while ($myline = )
{
print "coucou";
if ($myline =~ /^\s*-[^<]*<-\s*\(*\s*(?:\/\/.*$\s*)+/)
{
print 'trouvé'."\n";
print 'Méthode : '.$1.'Commentaire : '.$2,"\n";
}
}
Il m'affiche "coucou" une fois et puis plus rien.
Je viens de tester un truc intéressant : j'ai supprimé les première lignes du fichier, et fais commencer le fichier à une ligne qui matche.
Et là, Il la trouve effectivement...
Il faudrait donc que je lui fasse tester le fichier entier n fois (n = nombre de lignes) en supprimant en supprimant la ième ligne à la ième itération..
« Il n’y a pas de choix démocratiques contre les Traités européens » - Jean-Claude Junker
[^] # Re: Slurp mode
Posté par daggett . Évalué à 3.
Je connais tres peu perl en fait, mais un exemple de script qui traine chez moi itère sur le fichier en capturant les morceaux de fichiers autour de la regexp de cette façon:
Et pour matcher des frontières de "vraie ligne" sans ^ ni $, on peut utiliser \n (c'est un peu crade...)
Si un expert en perl passe ici et veut bien prendre le relai...
# Pattern de plusieurs lignes
Posté par Maxime Ritter (site web personnel) . Évalué à 2.
Donc quelque chose comma ça :
perl -n -0777e 'print if /^\s*-[^<]*<-\s*\(*\s*(?:\/\/.*$\s*)+/mxs' numeric.li
Suivre le flux des commentaires
Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.