Discussion :

[melmouj]

Bonjour,

Pour remplacer une chaîne de caractère dans un fichier plat (position 15-17)
J’ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
perl -pe ' substr($_,15,3) =~ tr/[a-z]/000/'  kal >kal1;

Voila un extrait de mon fichier kal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
ezr    zer   f	ezf       fzefazfe       feazf
dzd    fFe  z         aza       effzffff        fezef
qAf    vaa  d        vqv       ccvvvbbb     gvavv

quelqu'un à une idée !!!!!!!!!!

Merci d'avance

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -pe ' substr($_,15,3) =~ tr/[a-z]/000/'  kal >kal1;

Bon y a des fautes dans cet uniligne, mais je suppose que tu t'en doutais puisque tu nous demande de l'aide...

Si le fichier est "plat", j'imagine que tu ne veut surtout pas qu'il soit découpé en lignes, donc on utilise '-0', par ailleurs ta syntaxe est légèrement fausse et je suis obligé de supposer que tu veux remplacer les caractères alphabétiques dans l'intervalle 15-17 en 0 (mais pas les autres caractères ??). Voici ce que ça donnerait si mes suppositions était correctes (sinon faut être plus clair) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -p0e '$s = substr($_, 15, 3); $s =~ tr/a-z/0/; substr($_, 15, 3, $s)' kal >kal1

Il est possible que ce code fonctionne, mais je n'ai pas de Perl sous la main pour tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -p0e 'substr($_, 15, 3) =~ tr/a-z/0/' kal >kal1

En tout cas le premier code devrait fonctionner.
EDIT : Le second code ne fonctionne pas... dommage !

--
Jedaï

[melmouj]

Merci pour ta réponse
par contre ça ne remplace que dans la première ligne, et le reste

il faut qu'il me remplace dans toute les ligne la chaine de caractère qui commence de la postion 15 à 17.

[Jedai]

Merci pour ta réponse
par contre ça ne remplace que dans la première ligne, et le reste

il faut qu'il me remplace dans toute les ligne la chaine de caractère qui commence de la postion 15 à 17.

Un peu plus de clarté aurait aidé... Et jeter un coup d'oeil au switch -0 aurait pu te permettre de répondre tout seul à ta question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -pe '$s = substr($_, 15, 3); $s =~ tr/a-z/0/; substr($_, 15, 3, $s)' kal >kal1

--
Jedaï

[lami20j]

Salut,

Merci pour ta réponse
par contre ça ne remplace que dans la première ligne, et le reste

il faut qu'il me remplace dans toute les ligne la chaine de caractère qui commence de la postion 15 à 17.

Tu veux remplacer n'importe quel caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 's/^(.{15}).{3}/${1}000/;print' kal > kal3

ou seulement les alphanumériques de a à z ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 's/^(.{15})[a-z]{3}/${1}000/;print' kal > kal2

[Jedai]

Salut,Tu veux remplacer n'importe quel caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 's/^(.{15}).{3}/${1}000/;print' kal > kal3

ou seulement les alphanumériques de a à z ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 's/^(.{15})[a-z]{3}/${1}000/;print' kal > kal2

Pourquoi utiliser -ne "... print" au lieu de -pe ?
Le deuxième code ne fonctionne pas exactement comme tu sembles l'indiquer, ceci serait plus proche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -pe 's/^(.{15})(.{3})/${1}.$2 =~ tr<a-z><0>/e' kal > kal2

[/QUOTE]

[lami20j]

Pourquoi utiliser -ne "... print" au lieu de -pe ?
Le deuxième code ne fonctionne pas exactement comme tu sembles l'indiquer, ceci serait plus proche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -pe 's/^(.{15})(.{3})/${1}.$2 =~ tr<a-z><0>/e' kal > kal2

C'est juste une habitude d'utiliser n au lieu de p, vu que j'affiche sur STDOUT le résultat. (perl -n ou perl -p)

Le 2ème code fonctionne comme j'ai pensé. Le problème est que j'ai mal pensé