(sed) Enlever le Résolu/Fermé

Question

Bonjour à  tous,

j'ai un nouveau petit point à traiter avec sed, dont j'ai besoin de votre aide,

ce fichier contient sur chaque fin de ligne ou il y'a un retour chariot "=", quand j'ai fais set list, j'ai detecté qu'aprés chaque "=" , y'a un caractére caché "$",

comment peut on enlever ce caractére "=" et le caractére caché "$" qui va éleminer le retour chariot?

ex fichier :
@|99|OR|99|CT|200611061008|2006|1||PE|ACTES||||
B|2006|1|12|8130|121101200000001072|2006|1079|9|AAAAAA =
AAAAAAAAA|495.0|N|6758|19/04/2006|270||||0.0|P|D668161|31/08/2006|indemnit=
e forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
B|2006|1|12|8131|121101200000001072|2006|1079|9|BBBB =
BBBBBBB|495.0|N|6758|19/04/2006|270||||0.0|P|Z346370|31/08/2006|indemnit=
e forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
&|2|

le resultat attendu c est :

@|99|OR|99|CT|200611061008|2006|1||PE|ACTES||||
B|2006|1|12|8130|121101200000001072|2006|1079|9|AAAAAA AAAAAAAAA|495.0|N|6758|19/04/2006|270||||0.0|P|D668161|31/08/2006|indemnite forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
B|2006|1|12|8131|121101200000001072|2006|1079|9|BBBB BBBBBBB|495.0|N|6758|19/04/2006|270||||0.0|P|Z346370|31/08/2006|indemnit
e forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
&|2|

le résultat doit contenir 4 lignes.

D'avance merci,

Cordialement,

mamiemando · Answer

Si c'est juste suprimer les = en fin de ligne ca donne, si je ne m'abuse :
sed 's/=$//g' fichier
Bonne chance

lami20j · Answer

Salut,sed -i.orig /=[
]*// fichierIl faut l'option -i pour editer le fichier en place

Après = il y a un  ou 
 qu'il faut le supprimer.

Je n'ai pas testé :-) mais -i.orig sauvegarde le fichier

lami20j · Answer

Oups,

essaie comme çased -i.orig s/=[
]*// fichierj'ai oublié le s

lami20j · Answer

Essaiesed -i.orig s/=[
]+// fichier--
lami20j

lami20j · Answer

Essaie çaperl -pi.orig -e 's/(\d=)?
?/$1/' fichier--
lami20j

lami20j · Answer

Re,

la commande n'était pas bonne

essaieperl -pi.orig -e 's/=\s*?
?//' fichier--
lami20j

titexe · Answer

meme en perl , chér ami !!
ca marche pas , le retour chariot existe toujours !!

Merci d'avance

titexe · Answer

ci-joint le fichier test.dc

et voila le lien :  https://www.cjoint.com/?mfm1dYJbFc 

Cordialement,

lami20j · Answer

Salut,perl -pi.orig -e 's/=
//' fichier --
lami20j

titexe · Answer

bonjour,

je sais pas pourquoi ca marche pas chez moi , je l'ai testé plusieurs fois , sous unix et windows et toujours le meme résultat?

jipicy · Answer

Salut,

Essaye ça :sed 's/=*^M$//' mfm1dYJbFc_test.dc | cat -t Le "^M" s'obtient par la combinaison de touches :
(CTRL+V) + (CTRL+M)

;-))

titexe · Answer

bonjour,

pardonnez moi , je comprends pas pourquoi ca marche pas chez moi, voila qu es ce que j ai fait ?

/usr/test > sed 's/=*^M$//' mfm1dYJbFc_test.dc | cat –t

@|99|OR|99|CT|200611061008|2006|1||PE|ACTES||||
B|2006|1|12|8130|121101200000001072|2006|1079|9|OUBELKACEM =
ESSAADIA|495.0|N|6758|19/04/2006|270||||0.0|P|D668161|31/08/2006|indemnit=
e forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
B|2006|1|12|8131|121101200000001072|2006|1079|9|OURYA =
OUIDYANE|495.0|N|6758|19/04/2006|270||||0.0|P|Z346370|31/08/2006|indemnit=
e forfaitaire du 01/06/2006 au 31/08/2006|0.0|||||||||C| | |
&|2|

comment vous expliquez ca ?

je compte sur vous pour m'aider a résoudre ce probléme, merci d'avance.

Cdlt

lami20j · Answer

Salut,

affiche perl -ne 's/(.)/ord($1)/eg' fichier_original--
lami20j

lami20j · Answer

Attention,

je n'ai pas dit /usr/test > 
tape ça
perl -ne 's/(.)/ord($1)/eg' mfm1dYJbFc_test.dc

lami20j · Answer

oups, c'est ma faute, j'ai oublié le print :-)
perl -ne 's/(.)/ord($1)/eg;  print' mfm1dYJbFc_test.dc

lami20j · Answer

Il y a quelque chose qui ne va pas

tu vois les lignes qui se finissent avec 61?
61 c'est le code ASCII pour =
donc après 61 on devrait avoir 13 (enfin c'est ça que j'ai obtenu sur ton fichier que tu m'as donné par cjoint.com)

Tu travailles sur une portion de fichier ou sur le fichier entier?

lami20j · Answer

C'est bizarre.

Je verrai ce soir.
Tu peux compresser le fichier et le passer par e-mail (regarde mon profil)

lami20j · Answer

Salut,

$ perl -ne 'print' mfm1dYJbFc_test.dc | wc -l
140le fichier original a 140 lignes$ perl -ne 's/=
//;print' mfm1dYJbFc_test.dc | wc -l
42le fichier après la suppresion (ici je fais juste un teste sans sauvegarder les modifications) de = et fin de ligne a 42 lignes$ perl -ne 's/(.)/ord($1)/eg;print' mfm1dYJbFc_test.dc > ascii_test.dcdans ce fichier je converti les caractères en code ASCII
tu va remarquer à la fin de certains lignes 6113 (chez toi je ne vois pas ça) - c'est = et carriage return$ perl -ne 's/=
//;print' mfm1dYJbFc_test.dc > suppegal_test.dcje supprime = et caractère de fin de ligne et je sauvegarde le fichier $ cat ascii_test.dc | wc -l
140le fichier original (les caractères en ascii cette fois ci) a toujours 140 lignes$ cat suppegal_test.dc | wc -l
42le fichier obtenu a 42 lignes

Voici le fichier avec les caractères convertis en ASCII https://www.cjoint.com/?mit1YbzzmU
et le fichier obtenu après la suppression https://www.cjoint.com/?mit2uTW4mo

lami20j · Answer

Par exemple si je compte le nombre de = suit d'un carriage return j'obtiens 98 qui veut dire 

140 - 98 = 42 donc le résultat que j'obtiens

calculer le nombre d'occurence = suit de carriage return
$ perl -e 'print scalar(map{/=
/}`cat mfm1dYJbFc_test.dc`),"
"'
98

titexe · Answer

bonjour,

voila j'ai exécuté les meme commande et voila le résultat :

# perl -ne 'print' mfm1dYJbFc_test.dc | wc -l
     141

# perl -ne 's/=
//; print' mfm1dYJbFc_test.dc | wc -l
     141

pourtant c'est le meme fichier,

y'a une seule chose que je le fais normalement avant le traitement de ce fichier , c est enlever ^M quand je le transfére du windows a unix. ( en éxutant un script dos2unix.sh)

lami20j · Answer

Ben, moi je ne l'ai pas enlevé :-))
et tu ne l'a jamais dit; ça explique l'échec de la commande (le  n'existe plus)

que te donne# perl -ne 's/=
//; print' mfm1dYJbFc_test.dc | wc -l --
lami20j

(sed) Enlever le

21 réponses

Discussions similaires