Discussion :

[Flyer007]

Bonjour,

J'ai créé une ligne de commande à base de find qui scanne des répertoires de mon disque, et extrait des données des fichiers xml

Code :

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

1
2
 
find /rep_journaux/ -maxdepth 2 -name *xml -exec perl -ne '@t=/<nom_journal>(.*?)<\/nom_journal><date>(.*?)<\/date>/g; print "@t\n"' {} \;

ça marche très bien mais je voudrais avoir aussi le nom du fichier xml qui a été reconnu afin de le supprimer... et tout ça dans un script perl...



Une idée ?

Merci.

[Jedai]

Bonjour,

J'ai créé une ligne de commande à base de find qui scanne des répertoires de mon disque, et extrait des données des fichiers xml

Code :

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

1
2
 
find /rep_journaux/ -maxdepth 2 -name *xml -exec perl -ne '@t=/<nom_journal>(.*?)<\/nom_journal><date>(.*?)<\/date>/g; print "@t\n"' {} \;

Il suffit d'utiliser $ARGV, il contient le nom du fichier que Perl est en train de lire à partir des options :

Code :

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

1
2
 
find /rep_journaux/ -maxdepth 2 -name *xml -exec perl -ne '@t=/<nom_journal>(.*?)<\/nom_journal><date>(.*?)<\/date>/g; print "$ARGV : @t\n"' {} \;

--
Jedaï

[Flyer007]

Ok, par contre, j'ai toujours une erreur de syntaxe...

/usr/bin/find: Paramètre manquant pour « -exec »

Code :

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

1
2
 
system(`/usr/bin/find /rep/ -name *xml -exec /usr/bin/perl -ne '@t=/<nom_journal>(.*?)<\/nom_journal><date>(.*?)<\/date>/g; print \"@t\n\"' {} \;`);

Une idée ?

[Jedai]

Ok, par contre, j'ai toujours une erreur de syntaxe...

/usr/bin/find: Paramètre manquant pour « -exec »

Code :

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

1
2
 
system(`/usr/bin/find /rep/ -name *xml -exec /usr/bin/perl -ne '@t=/<nom_journal>(.*?)<\/nom_journal><date>(.*?)<\/date>/g; print \"@t\n\"' {} \;`);

Une idée ?

Il fallait le dire que tu allais foutre ça dans un system() ! Là tu as des @ qu'il faudrait "échapper" avec un antislash \.

Code :

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

system(`/usr/bin/find /rep/ -name *xml -exec /usr/bin/perl -ne '\@t=m{<nom_journal>(.*?)</nom_journal><date>(.*?)</date>}g; print "\@t\\n"' {} \\;`);

Je pense que ça devrait être bon, mais ce genre de ligne de commande est un cauchemard à échapper correctement pour arranger les systèmes de quote du shell et de Perl...
Pourquoi ne pas tout faire en Perl ?

--
Jedaï

[Flyer007]

En fait, j'avais commencé à le faire en perl entièrement et ça devenait une usine à gaz entre le mode "recherche", "balayage des répertoires", "lecture et extraction des données puis actions", et je me suis dit que le faire en 1 seule ligne de commande allait prendre moins de ressources et allait le faire plus vite... Non ?

[Jedai]

En fait, j'avais commencé à le faire en perl entièrement et ça devenait une usine à gaz entre le mode "recherche", "balayage des répertoires", "lecture et extraction des données puis actions", et je me suis dit que le faire en 1 seule ligne de commande allait prendre moins de ressources et allait le faire plus vite... Non ?

Probablement pas ! Là tu crée un processus perl pour chaque fichier à visiter, sans parler du fait que File::Find est normalement plus rapide que find (sous Linux, d'après la doc, je n'ai pas testé...).

Pour éviter les usines à gaz, il faut séparer strictement les fonctionnalités en sous-routines :

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
#! /usr/bin/perl
use strict; use warnings;
use File::Find;
 
my $directory = shift;
 
find( \&xmlFile, $directory );
 
sub xmlFile {
   if( m/\.xml$/i ) {
      extractInfo($_);
   }
}
 
sub extractInfo {
   local (@ARGV) = shift;
   while(<>) {
      my @t = m{<nom_journal>(.*?)</nom_journal><date>(.*?)</date>}g;
      print "$ARGV : @t\n";
   }
}

Par ailleurs, comme je ne sais pas ce que tu veux faire de ces données, je les imprime simplement mais je pourrais aussi les stocker dans une structure de donnée complexe (ce qui serait plus difficile à faire avec le shell... sauf en parsant le résultat).

NB : Il y a un gros problème sur ton script : soit tu utilises les backquotes ` `, soit tu utilises system(), mais pas les deux en même temps !!

--
Jedaï