il faut utiliser la fonction bsd_glob de File::Glob au lieu de CORE::glob qui a ce comportement connu.
Un truc comme ça devrait le faire
Code :
#!/usr/bin/perl use warnings; use strict; use File:: Glob qw(bsd_glob ); my $SOURCE = "C:/Documents and Settings/toto/Desktop/a/*"; my @LISTFIC; foreach (bsd_glob ($SOURCE)) { if (-f ) {push(@LISTFIC, $_); } } print("\n\n Nombre de fichiers : $nbfic \n" );
|
(Noter qu'en sortie, tes fichiers sont au format unix, avec des séparateurs /. Pour avoir un format a la DOS, avec des séparateurs \, faire: my $SOURCE = 'C:\Documents and Settings\toto\Desktop\a\*';)
A+,
Message édité par gilou le 11-06-2009 à 15:33:27
---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --