Discussion :

[bougnbie]

Bonsoir à tous,
Je voudrais régler un (petit) problème et je pense que perl (si mes souvenirs sont bons) est ce qu'il me faut pour ça.

J'ai dans un répertoire des fichiers xml de cette forme:

Code :

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

<a> blabla éléments divers </a>

malheureusement, certains de ces fichiers sont mal-formés et l'élément <a> à été doublé:

Code :

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

1
2
<a> blabla éléments divers</a>
<a> blabla éléments divers</a>

Je veux donc réparer cette erreur. Sachant que l'opération doit se faire sur plusieurs milliers de fichiers, je veux être sur que perl permet de faire ça efficacement (comparé à un sed par exemple), qu'en est t-il?

Je n'ai pas de quoi tester mais théoriquement, je pense qu'en perl il faut faire un truc du genre:

Code :

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

s/(<a>.*<\/a>)<a>.*<\/a>/$1 *.xml

ça vous parait correct?

[Lolo78]

Bonjour,

oui, Perl est tout-à-fait adapté pour faire ce genre d'opérations sur des milliers de fichiers. Traiter tous les fichiers d'un répertoire est un peu plus simple sous Unix que sous Windows, et la syntaxe d'appel ne sera pas tout-à-fait la même. Sous quel système es-tu?

Mais ta syntaxe ne marchera pas vraiment dans ce cas-ci.

D'après l'exemple que tu donnes, l'opération à faire semble être un simple dédoublonnage. Dans ce cas, inutile de recourir aux expressions régulière et à la fonction s///.

Il suffit de lire chaque ligne du fichier en entrée et de l'imprimer sur la sortie si elle est différente de la précédente.

La syntaxe sera à peu près la suivante (je ne peux pas tester dans l'immédiat dans le train):

Code :

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

perl -ni.bak -e 'print if $_ eq $old; $old = $_;' *.xml

[bougnbie]

Merci pour ta réponse.
Cependant, dans mon cas, et l'exemple que j'ai donné n'est peut être pas bien choisi, le éléments <a> peuvent prendre plusieurs lignes!

Exemple:

Code :

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

1
2
3
4
5
6
7
8
<a>
<b/>
<c/>
</a>
<a>
<b/>
<c/>
</a>

Aussi, je veux que la modification se fasse dans le fichier;
j'ai réussi à obtenir le résultat escompté mais je ne sais pas comment faire pour que la modification se fasse dans le fichier.
voici ce que je fais:

Code :

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

1
2
3
4
5
6
 
$/ = undef;
$text=<>;
$text=~ s/(<a>.*?</a>)\n<a>.*?</a>/$1/gms
# l'option s sert à ce que le \n puisse être matché
print $text

donc ce truc fonctionne, mais je n'ai le résultat que sur la sortie standard, et je crains de perdre beaucoup en efficacité si je l'écris dans un fichier temp que je renomme ensuite.

Je me demande si il y'a d'autre moyen de faire? je pense que ma façon de régler le problème n'est déjà pas optimale

[bougnbie]

Ah, et je suis sous Unix bien sur quand je bosse avec perl

[Lolo78]

L'option -i.bak que j'ai utilisée dans ma proposition permet de remplacer directement dans le fichier ("en place"), et de garder l' fichier d'origine avec l'extension ".bak". Cela dit, avec cette option, Perl créee un fichier temporaire et assure lui-même les renommages qui vont bien. C'est bien utile pour de spetits scripts inilignes, pour des programmes un peu plus compliqués,tu peux aussi bien gérer toi-même.