Discussion :

[blacksnake]

Salut,

Je voudrais alléger si possible ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
open(MAINDIR,">$mod_f") or die "E/S : $!\n";
  @ARGV = glob "bscs_mod/*$mydate\.csv" or die "No csv files in directory\n";
  while (<>) {
    print MAINDIR;
  }  
close MAINDIR;
 
open(TMP,"$mod_f") or die "E/S : $!\n";
  @global = <TMP>;  
close(TMP);

Est-il possible de renvoyer la lecture du répertoire directement vers @global

Merci

[Jedai]

Tu obtiendrais probablement le même résultat ainsi :

Code :

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

1
2
3
4
5
6
7
@ARGV = glob "bscs_mod/*$mydate.csv" 
  or die "No csv files in directory\n";
 
my @global;
while (<>) {
  push @global, $_;
}

Ce n'est pas tout à fait garanti (il peut y avoir des problèmes si un fichier ne se termine pas avec un saut de ligne, mais c'était de toute façon très probablement un bug potentiel de l'implémentation précédente).

--
Jedaï

[blacksnake]

Impec', ça marche !!

Merci