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

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