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

[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