
Envoyé par
anibal
J'ai essayé ceci mais ça n'a pas l'air de marcher
1 2
|
/usr/bin/perl -p -i -e "s/^[^\>[0-9]{1}[a-zA-Z]{3}](.*)$//g" Text.txt |
Pour dire remplacer au debut, tout sauf ce qu'il ya à l'interieur des [ ]
Mais je pense avoir fait une erreur
A quoi sert le \> ?
s/^([0-9]{1}[a-z]{3}).*$/$1/gi
//i rend invariable à la casse (mais [a-zA-Z] revient au même)
tu récupères dans $1 ce qui est entre parenthèses, tu remplaces tout par la valeur de $1 (seconde partie de la substitution).
Pour appliquer la recherche à tout le document, il y a une subtilité ^^ que j'ai oublié
. Le point ne tient pas compte des saut de ligne (\n), le tag à utiliser est //s FAQ essaie avec
s/^([0-9]{1}[a-z]{3}).*$/$1/gsi
Partager