Merci franceso pour ta réponse.
Je connais rien à perl, mais ta commande ne marche pas quand le mot finit en un caractère non alphanumérique.
Par exemple ta commande retourne la ligne :
TTPConnection;)[Ljconnect/srv/data/.. |
Alors que tout ce que je veux capturer sur cette ligne est : TTPConnection.
J'aurais pensé que mon bonheur serait dans :
perl -ne 's/.*(TTP[:alnum:]+)[^:alnum:].*/$1/g; print;' |
mais je ne sais pas pourquoi cette version ne parche pas non plus..
J'ai trouvé une solution plus laborieuse avec sed :
egrep "TTP[A-Za-z0-9]" mon_fichier | sed -e 's/\(TTP[A-Za-z0-9]\{1,\}\)/\1^M/g' | sed -e 's/^.*\(TTP[A-Za-z0-9]\{1,\}\).*$/\1/g' |
Le ^M résulte de Cntr-V-Enter.
Ca ne retourne pas les mot exactement égaux à "TTP", mais tout le reste. Ca me va, mais si qq1 peut encore améliorer ça, ça m'intéresserait !