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

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