Nombre de match - regex

Version imprimable

Bonjour,

Je voudrais récupérer l'offset -/+ quand ça match une seule fois. Il faut donc récupérer le nombre de match et faire une condition. Jusqu'à présent j'écrivais ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 my $r = "abc"; my $var = "abcuatcgatabcagtc"; # MATCH 1 if (($var =~ s/$r/$r/g) == 1) { print "offsets $-[0] $+[0] \n"; } # MATCH 2 while ($var =~ /($r)/gi) { print "r: $1 - offsets [$-[0]-$+[0]] \n"; }
Peut-on améliorer le match 1, notamment sur $var =~ s/$r/$r/g, je ne trouve pas cela très élégant... d'ailleurs $1 ($r) ne fonctionne pas dans le 1er cas.
la deuxième méthode m'oblige à faire un test supplémentaire quand match = 1 et on utilise le while..

Merci.

18/02/2014, 15h18
ggnore

Tu cherches à recoder index ? http://perldoc.perl.org/functions/index.html

Code:

1
2
3
4
5
6
7
#!/usr/bin/perl
 
my $string = "abc";
my $var = "abcuatcgatabcagtc";
 
my $number =()= $var =~ /$string/gi;
print "\n$number\n";

18/02/2014, 19h04
bowow

Ok, la nouvelle méthode proposée est une extension de la deuxième, on retire le while et on dit que l'on veut stocker le nombre de match en contexte scalaire ?

Je connaissais Index, mais toujours pareil, elle retourne le premier indice trouvé il me semble.

Sachant qu'il y aura des milliard et des milliards de match effectués, j'espère bien que les outils de Perl sont relativement bien optimisés..
18/02/2014, 19h29
Lolo78

Il faudrait que tu expliques plus clairement ce que tu veux faire.

Si tu veux l'offset de la première reconnaissance, alors index est clairement plus approprié. Si tu veux les offsets de plusieurs reconnaissances, alors tu peux mettre la fonction index dans une boucle while, en repartant à chaque fois de l'offset trouvé plus la longueur de la chaîne recherchée. Si tu cherches à connaître le nombre de reconnaissances, alors peut-être qu'une expression régulière est le plus pratique (mais index dans une boucle sera peut-être plus rapide).
18/02/2014, 19h44
bowow

Je veux juste déterminer le nombre de fois ou ça match entre 2 chaines de caractères. La conservation des offsets s'effectue uniquement quand match = 1.

J'avais pensé à la boucle pour les index, mais on m'a plutôt dit d'utiliser la puissance des regex pour ce type d'application.. Mais je recherche avant tout les performances, donc si vous voyez une meilleur méthode, je suis preneur.
19/02/2014, 01h03
Lolo78

Si tu as besoin d'un regex match, alors utilise une regex.

Si tu as besoin d'un exact match, alors index dans une boucle sera très certainement meilleur.

Fais ton propre benchmark pour vérifier.
19/02/2014, 14h21
ggnore
Tu pourrais faire une fonction récursive avec
- pour paramètres : le string à parser, l'offset à partir duquel on commence, le string à chercher
- pour retour : un string contenant l'offset où l'on a trouvé le string à chercher
19/02/2014, 19h34
bowow

Citation:

Fais ton propre benchmark pour vérifier

Je fais ça depuis le WE dernier sur d'autres portions du code.. pas encore fait sur le match, donc oui je vais essayer de comparer la méthode index() Vs Regex. Le code proposé par ggnore est une extension de la méthode 2, elle répond à ma question initiale, même si j'ai du mal à m'y faire à la syntaxe de Perl. Je vais tester pleins d'algorithmes de toute façon.

Sinon, je demande ici par la même occasion, comment pourrait-on créer des "new vector" dynamiquement en Perl. (rien à voir avec la réallocation automatique avec push). Je ne vais pas m'amuser à faire des my @list.$i pour créer plein de tableau différent... Des idées ?
20/02/2014, 18h47
Lolo78
Citation:

Envoyé par bowow

Sinon, je demande ici par la même occasion, comment pourrait-on créer des "new vector" dynamiquement en Perl. (rien à voir avec la réallocation automatique avec push). Je ne vais pas m'amuser à faire des my @list.$i pour créer plein de tableau différent... Des idées ?

Surtout pas des my @list.$i pour créer plein de tableaux différents, c'est faisable en perl pour des raisons historiques, mais très fortement déprécié. La bonne technique est de créer un tableau de tableaux (AoA, array of arrays).

Syntaxe de base:
my @liste;
Code:

1 2 3 $liste[0][0] = 0; $liste[0][1] = 1; # etc
Le premier tableau du tableau de tableaux contient maintenant un tableau contenant deux éléments.
20/02/2014, 22h27
bowow

Ok, merci. ça fonctionne bien, mais, comment on détermine la taille des lignes et colonnes après ?
21/02/2014, 08h19
Lolo78

Pour la taille du tableau de tableau, if suffit d'évaluer le tableau en contexte scalaire:

Code:

my $size = @liste;

ou

Code:

my $size = scalar @liste;

Pour les tableaux intérieurs, c'est un peu plus compliqué. Ceci devrait marcher:

Code:

my $subsize = scalar @{$liste[0]};
21/02/2014, 15h56
bowow
Sinon, admettons que l'on est un tableau my @tab = ("chaine1","abc","def",ghi","chaine2");
Peut-on fusionner les éléments d'un tableau, dans l'exemple, aux positions 1-2-3 et les incorporer dans la pos 1, puis faire en sorte que chaine2 prend la position 2? Avec une fonction particulière de Perl?

EDIT: réponse ici:
Code:

1 2 3 my @tab = ("chaine1","abc","def","ghi","chaine2"); @tab = ($tab[0],join("",@tab[1..($#tab-1)]),$tab[$#tab]); print "$tab[0] / $tab[1] / $tab[2]\n";