Discussion :

[alainbb]

Bonjour,

Voici un petit code qui me parait bien lent. Je cherche simplement des TODO dans un fichier.

Code :

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

1
2
3
4
5
#!/usr/bin/env perl6
use v6;
for "org-mode-gtk.raku".IO.lines {
    say $_ if $_ ~~ /(.*?)" # TODO "(.*)/;
}

Il met une seconde à traiter le fichier https://github.com/alainbebe/org-mod...-mode-gtk.raku d'à peine 850 lignes.
Bon, je travaille sur un portable vieux de 3 ans ... mais quand même.
Je sais qu'il y a des expressions gourmandes et pas, du backtracking. Faut-il écrire cela autrement ?

Merci pour vos conseils.

ABB

[CosmoKnacki]

Si ton but est juste d'afficher la ligne où se trouve un # TODO autant ne pas s'encombrer de fioritures:

Code :

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

1
2
3
for "org-mode-gtk.raku".IO.lines {
    say $_ if $_ ~~ /" # TODO "/;
}

ou

Code :

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

1
2
3
for "org-mode-gtk.raku".IO.lines {
    .say if /" # TODO "/;
}

seront imbattables. Dans le cas d'une pattern commençant par une chaîne littérale, les positions susceptibles de réussir sont recherchées à l'avance par un algorithme rapide avant même la mise en branle du moteur de regex, et donc la pattern ne sera testée qu'à ces positions. Idem si avant la chaîne littérale il y a seulement .*? ou .*, la même optimisation se produira. Par contre, le simple fait de placer .*? dans un groupe, fera que l'analyse de ta pattern en vue de cette optimisation sera abandonnée (il ne faudrait pas que cette analyse en vue d'optimiser la pattern dure trop longtemps, c'est pour cette raison qu'elle reste très basique).

Si par contre tu souhaites capturer des choses dans la ligne et que tu dois commencer la description dés le début de la ligne, tu peux toujours l'ancrer. Ça limitera les recherches à une seule position de départ: le début de la ligne, sans quoi la pattern sera testée au départ de chaque caractère de la ligne dans le pire des cas. C'est une stratégie pour accélérer l'échec de la pattern. Donc:

Code :

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

1
2
3
for "org-mode-gtk.raku".IO.lines {
    .say if /^(.*?)" # TODO "(.*)/;
}

[alainbb]

En effet, la capture est importante, car une foi que j'ai trouvé, j'ai évidemment envie de traiter la ligne. (et pas simplement l'afficher)
Donc l'ancrage ^, et même en fin $, accélère bien les chose.
Je reste étonné quand même, par curiosité j'ai fait le test en perl5, et même sans les ancres, ça va plus vite. Mais je sais que le moteur regex est plus complexe.

Merci.