Discussion :

[blacksnake]

Salut,

Est - il possible de faire un glob avec plusieurs motifs pour éviter ceci :

Code :

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

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

Merci

[Jedai]

Salut,

Est - il possible de faire un glob avec plusieurs motifs pour éviter ceci :

Code :

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

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

Merci

Selon les systèmes, les glob ont différentes capacités, mais ici tu peux te contenter de faire quelque chose comme ça :

Code :

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

1
2
@ARGV = glob("mod_src/*$sat\.csv"), glob("mod_src/*$sun\.csv") or die "No csv files in directory\n";
while (<>) { push @global, $_; }

--
Jedaï

[blacksnake]

Code :

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

@ARGV = (glob "mod_src/*$sat\.csv", glob "mod_src/*$sun\.csv") or die "No csv files in directory\n";

> Too many arguments for glob at monrule.pl line 35, near ""mod_src/*$sun\.csv") "

Code :

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

@ARGV = (glob "mod_src/*$sat\.csv" and glob "mod_src/*$sun\.csv") or die "No csv files in directory\n";

> Renvoie la totalité de $sun sans $sat

Code :

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

@ARGV = (glob "mod_src/*$sat\.csv" && glob "mod_src/*$sun\.csv") or die "No csv files in directory\n";

> Renvoie une occurrence de $sun


On est pas loin, qu'est ce qu'il ne faut pas faire pour taper le moins de code possible tks Jedai

[Jedai]

Il suffit d'écrire plutôt ça :

Code :

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

1
2
3
@ARGV = (glob("mod_src/*$sat\.csv"), glob("mod_src/*$sun\.csv")) 
  or die "No csv files in directory\n"; 
while (<>) { push @global, $_; }

--
Jedaï

[blacksnake]

Impec', ça marche. Merci Jedai