Discussion :

[bakka]

Bonjour,

Je rencontre un problème avec un fichier que j'aimerais modifier je suis certain que l'on peux passer par un script perl pour ceci.

J'ai fait ce script shell qui donne une idee de ce que je voudrais obtenir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
NBRL=5
# Supression des retour à la ligne
while test $NBRL != 1
do
sed -i 'N;s/\n//g' teste 
NBRL=`more teste | wc -l`
echo $NBRL
done
# création des retour a la ligne ou j'en ai besoin
sed -i "s/<ListeClient>/<ListeClient>\n/g" teste
sed -i "s/<\/Client>/<\/Client>\n/g" teste

ce script fonctionne bien sous mon linux mais sed -i sous AIX ne fonctionne pas movaise version de sed.

en gros j'ai un fichier qui ressemble a ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<ListeClient>
  <Client etatDossier="10">
    <AttributClient nomAttribut=""></AttributClient>
    <AttributClient nomAttribut=""></AttributClient>
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
  </Client>
  <Client etatDossier="10">
    <AttributClient nomAttribut=""></AttributClient>
    <AttributClient nomAttribut=""></AttributClient>
    <AttributClient nomAttribut=""></AttributClient>
    <AttributClient nomAttribut=""></AttributClient>
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
    <ServicePrest code="" />
  </Client>
</ListeClient>

et j'aimerais obtenir

Code :

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

1
2
3
4
5
6
7
8
9
 
<ListeClient>
  <Client etatDossier="10">
<AttributClient nomAttribut=""></AttributClient>    <AttributClient nomAttribut="dossierClient"></AttributClient>    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />
  </Client>
  <Client etatDossier="10">
    <AttributClient nomAttribut=""></AttributClient>    <AttributClient nomAttribut="dossierClient"></AttributClient>    <AttributClient nomAttribut="OriginInfo"></AttributClient>    <AttributClient nomAttribut="segCo"></AttributClient>    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />    <ServicePrest code="" />
  </Client>
</ListeClient>

Si quelqu'un pouvais m'orienter afin de savoir comment transformer un fichier via perl et sed merci d'avance

[Gardyen]

voila un petit exemple de comment modifier un fichier avec perl

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
open (IN, "D:/test.txt");
open (OUT, ">D:/test2.txt");
while (<IN>){
	chomp;
	if (/<\/?Client/ || /<ListeClient>/){
		$_ .= "\n";
	}
	print OUT $_;
 
}
close(IN);
close(OUT);

le fichier test.txt est :

<ListeClient>
<Client etatDossier="10">
<AttributClient nomAttribut=""></AttributClient>
<AttributClient nomAttribut=""></AttributClient>
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
</Client>
<Client etatDossier="10">
<AttributClient nomAttribut=""></AttributClient>
<AttributClient nomAttribut=""></AttributClient>
<AttributClient nomAttribut=""></AttributClient>
<AttributClient nomAttribut=""></AttributClient>
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
<ServicePrest code="" />
</Client>
</ListeClient>

le fichier obtenu est

<ListeClient>
<Client etatDossier="10">
<AttributClient nomAttribut=""></AttributClient> <AttributClient nomAttribut=""></AttributClient> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> </Client>
<Client etatDossier="10">
<AttributClient nomAttribut=""></AttributClient> <AttributClient nomAttribut=""></AttributClient> <AttributClient nomAttribut=""></AttributClient> <AttributClient nomAttribut=""></AttributClient> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> <ServicePrest code="" /> </Client>
</ListeClient>

ensuite il te reste plus qu'a renommer les fichiers...

[Jedai]

Tu peux remplacer ton script bash par une ligne de Perl :

Code :

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

perl -i -pe 'chomp unless m{</Client>} or m{<ListeClient>}' teste

--
Jedaï

[djibril]

vive perl