Discussion :

[bowow]

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 :

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

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.

[ggnore]

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

[ggnore]

Code :

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

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";

[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..

[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).

[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.

[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.

[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

[bowow]

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 ?

[Lolo78]

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 :

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

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.

[bowow]

Ok, merci. ça fonctionne bien, mais, comment on détermine la taille des lignes et colonnes après ?

[Lolo78]

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

Code :

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

my $size = @liste;

ou

Code :

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

my $size = scalar @liste;

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

Code :

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

my $subsize = scalar @{$liste[0]};

[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 :

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

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";