chercher des sous-chaines dans une chaine et dans l'ordre

[gruik]

bon dit comme ça c'est peut-être pas très parlant, j'ai :
- d'un coté la chaine STR = "titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"
- de l'autre une liste/un tableau de mots ARRAY = "toto", "bouzin", "pouet"

je veux à chaque fois que dans STR on trouve un mot qui appartient à ARRAY effectuer une action, disons appeller la fonction FUNC(), le tout dans l'ordre de la chaine, c'est à dire à l'exécution ça doit donner un truc comme ça :

Code :

str = "titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"
FUNC(toto)
FUNC(bouzin)
FUNC(pouet)
FUNC(toto)
FUNC(bouzin)
FUNC(bouzin)

si possible de manière élégante en Perl (parcequ'y a toujours moyen d'être élégant avec Perl), sinon au moins en pseudo-code

des idées ?

[ark]

Yop

En python, je ferrais un truc comme :

Code PYTHON :


str = "titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"
arr = ["toto", "bouzin", "pouet"]

[func(x) for x in str.split() if x in arr]
 

Mais bon ça génère un tableau... x)

[gruik]

oui forcément en python ici y'a moyen de faire très simple
mais pour le coup je le code en perl donc je peux pas astucer de la même façon qu'en python, je gère nettement moins le langage ;p

[Junky]

Un truc dans le genre:

Code PERL :


#!/usr/bin/perl
#

$gruik="toto titi plop";

@prout = split(/ /, $gruik);

foreach my $i (@prout) {
    print "FUNC($i)\n";
}

#########
Sortie
#########
FUNC(toto)
FUNC(titi)
FUNC(plop)

 

EDIT: hummm viens de m'appercevoir qu'il manque un truc... :/
Junky,

[fr0g]

En python (en restant sur du code "générique" vu que les tricks/fonctions sont pas forcément les mêmes en perl :$)

Code PYTHON :


def func(word):
    print "THE WORD IS : "+word

tab = ["toto", "lol", "tata"]

string = "poazeriutotoazpoetrilolpoazerirtataporize"

i = 0
case = 0
s_len = len(string)
t_len = len(tab)
while (i < s_len and case < t_len):
    j = i
    while ((j - i) < len(tab[case])):
        if (string[j] == tab[case][(j - i)]):
            j += 1
        else:
            break
    if ((j - i) == len(tab[case])):
        func(tab[case])
        case += 1
    i += 1
 

output :

Code :

██ [ ~ ] [ 16:12:46 ]
██ python gruik.py
THE WORD IS : toto
THE WORD IS : lol
THE WORD IS : tata

[ark]

Snorky: Bah tu les prend pas dans l'ordre de la chaine la :p

en se basant sur ton code, je dirais un truc du genre:

Code PERL :


#!/usr/bin/perl
#

$str="titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin";
@arr=("toto", "bouzin", "pouet");

foreach my $i (split(/ /, $str)) {
    foreach my $j (@arr) {
    if ($i eq $j) {
        print "FUNC($i)\n";
    }
    }
}
 

[gruik]

ok autant pour moi, disons que la chaine c'est pas :

Code :

"titi toto coincoin bouzin gruik pouet toto bouzin gruik bouzin"

mais :

Code :

"titi toto coincoin bouzin gruik pouet totobouzingruik bouzin"

c'est plus proche de ce que je cherche ^^

[ark]

Apparement, avec ta nouvelle chaine, le code suivant fonctionne:

Code PERL :


#!/usr/bin/perl

$str="titi toto coincoin bouzin gruik pouet totobouzingruik bouzin";
@arr=("toto", "bouzin", "pouet");

foreach my $i (split(/ /, $str)) {
    foreach my $j (@arr) {
    print "FUNC($j)\n" if ($i =~ $j);
    }
}
 

[gruik]

l'implementation naïve en Perl donnerait ça :

Code PERL :

#!/usr/bin/perl
use strict;
use warnings;

my $str="titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin";
my @arr=("toto", "bouzin", "pouet");

print $str."\n";
for (my $i = 0; $i < length($str); $i++) {
        foreach my $j (@arr) {
                if (index (substr($str, $i, length($str)), $j) eq 0) {
                        print "FUNC($j)\n";
                        next;
                }
        }
}

Code :

titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin
FUNC(toto)
FUNC(bouzin)
FUNC(pouet)
FUNC(bouzin)
FUNC(toto)
FUNC(bouzin)

si quelqu'un a une implémentation plus propre/astucieuse/perleuse je prends !

[Booster2ooo]

RegExp? Mais j'imagine que ça sera moins performant que la petite boucle

[gruik]

nop, sauf astuce utiliser les regex (via grep par exemple) ce sera pas une bonne idée ici, même pas tant pour la rapidité d'exécution mais ça risque d'être moins "précis"

[gruik]

je me doutais bien qu'il devait y avoir une solution qui troue le fion, et elle est d'un bon calibre :

Code PERL :

#!/usr/bin/perl
my $str="titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin";
my @arr=("toto", "bouzin", "pouet");

print $str."\n";

sub FUNC { print "FUNC(".$_[0].")\n"; }
my $pattern = '('.join('|',@arr).')';
$str =~ s/$pattern/FUNC($1)/eg;

Code :

titi toto coincoin bouzin gruik pouet bouzintotogruik bouzin
FUNC(toto)
FUNC(bouzin)
FUNC(pouet)
FUNC(bouzin)
FUNC(toto)
FUNC(bouzin)

thx b0fh

[Booster2ooo]

sexy

[b0fh]

Y'a un problème potentiellement de taille: @arr ne peut pas contenir de métacaractères de regex, sinon ça explose. Une petite modification pour que ça soit moins dangereux:

Code PERL :

my $pattern = '('.join('|',map(quotemeta,@arr)).')';