[Spamfilter] Aide sur une regexp

[CrazyCat]

Pour moi, la regexp ressemblerait plutôt à \s*\S{3,}(?:\s+\S{3,}){10,}, par contre elle a un souci. Elle ne fonctionne pas si un mot de moins de 3 lettres se trouve au milieu de la phrase (il faut au moins 10 mots successifs d'au moins 3 lettres pour qu'elle matche).

Le plus simple serait peut-être de sortir tous les mots d'au moins 3 lettres et de compter combien il y en a:

tclcopier

set a "vmy atjjt kmo bcqdd rr alwt dbe atp qbb ijm hndpov rga sbn rqmgw hox nkk rxkxu bvo whmcob qgv qou" 
set b [regexp -inline -all -- {\s*\w{3,}} $a]
putlog [llength $b]