Discussion :

[doog77]

Bonjour,

Je débute en perl et je voudrais savoir si il existe un moyen de transcrire la fonction suivante en perl ou dois-je tout simplement utiliser la fonction system?

Code :

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

1
2
3
4
5
6
 
for i in `ls $rep/*.trc`
        do
        file=`echo $i | awk -F. '{print $1}'`
        tkprof $file.trc $file.txt sys=no
        done

[PerlPicker]

Oui, c'est possible. A noter qu'il te faudra quand même un appel system pour tkprof.

Cette entrée de la FAQ explique comment parcourir les fichiers d'un répertoire.
Pour ton besoin précis, il faut que tu modifies le grep de sélection par grep { /\.trc$/}

[doog77]

Merci,

J'ai suivi votre exemple et je suis arrivé à cela :

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
 
my @fichiers = lister_traces($rep); 
 
sub lister_traces 
{ 
  opendir (DIR, $rep) 
    or die "impossible d'ouvrir le repertoire $rep\n"; 
  my @file_rep = grep { /\.trc$/} readdir(DIR); 
  closedir (DIR); 
 
  foreach my $nom (@file_rep) 
  { 
    system `tkprof $nom.trc $nom.txt sys=no`; 
  } 
  return @fichiers; 
}

J'ai deux petits soucis :

Comment faire pour que $nom contienne le chemin complet + le fichier et sans le .trc si possible : obtenir quelque chose comme cela par exemple /save/udump/traces/exemple

[PerlPicker]

readdir retourne les noms de fichiers sans le path pour les atteindre. Il faut donc l'ajouter ensuite.
Voici ton code qui fonctionne après quelques corrections. J'ai ajouté un commentaire quand j'ai fait une modification.

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
use strict;use warnings;
 
my $rep = $ARGV[0];
my @fichiers = lister_traces($rep); 
 
sub lister_traces 
{ 
  opendir (my $dir, $rep)
    or die "impossible d'ouvrir le repertoire $rep\n"; 
# $dir au lieu de DIR: c'est plus propre mais ne marche qu'à partir de Perl 5.8
  my @file_rep = grep { -f "$rep/$_" && m/\.trc$/} readdir($dir);
# -f permet de ne garder que les fichiers (un répertoire pourrait se terminer en .trc) 
  closedir ($dir); 
  foreach my $nom (@file_rep) 
  { 
    $nom =~s /\.trc$//; #enlève l'extension en fin de $nom
    print "tkprof \"$rep/$nom.trc\" \"$nom.txt\" sys=no\n";
   # ne pas oublier les quotes autour des noms de fichiers: ils peuvent contenir des espaces ...
  } 
  return @file_rep; 
  # retourne la liste des fichiers calculée dans la procédure
}

[doog77]

Merci beaucoup cela fonctionne.

En cherchant je suis tombé sur la fonction map et je pense que cela simplifie le code :

Code :

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

my @file_rep = map { s/\.trc$//;$_;} glob("$rep/*.trc" );