Discussion :

[achraf.z]

bonjour a tous je suis tout nouveaux et c'est mon premier post j’espère respecter les réglés du forum bon j ai un problème avec mon code j utilise le module file::find pour avoir le chemin de n importe quelle fichier excel se trouvant dans une arborescence le code me retourne le chemin comme suit :
c:\X/Y/Z.xls pourvu que je veux que le chemin soit de la forme classique c:\X\Y\Z.xls car je vais prendre les chemin de ce code pour ouvrir les fichier excel
avec une autre fonction voici mon code :

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
23
24
25
26
27
28
29
 #!/usr/bin/perl
    #use warnings;
    use strict;
    use File::Find;
    use Cwd;
    use Win32::OLE qw(in with);                              
print 'entrer le lien : ';
$a = <STDIN>;
my $b = chomp($a);
my $repertoire = "$a";  
find( { wanted => \&process, }, $repertoire );
my @fichier;
 my $fichier;
  my $i=0;
sub process {
   if (( -f $File::Find::name) && ($File::Find::name =~ m/[a-z]*.xls$/) ) 
    {
         #my $i=0;
         foreach ($File::Find::name)
         {
         $fichier[$i]= $File::Find::name;
         $i++;
         }  
    }  
}
for ($i = 0;$i <3; $i++) {
my $c = chomp($fichier[$i]);
print"$fichier[$i]\n";
}

[djibril]

Bonjour,

Comment récupérer le nom (ou chemin) ou l'extension d'un fichier ?

[achraf.z]

merci mais votre lien ne marche pas deja est ce que dans ton lien on cherche dans toute l arboressence car moi j ai besoin de donner par exemple c:\ et le programe doit chercher dans tout le disque dur et trouver des fichier excel

[achraf.z]

votre lien a marché mais c est pas d une grande aide puisque moi je cherche a ouvrir tout dossier qu il y a partir d'un chemin et chercher les fichier qui ont l extention .xls mon code marche bien j ai qu un problem que j ai posé c est avec les slach

[djibril]

Inspire toi de ce programme

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
23
24
25
26
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use File::Spec;
 
use Cwd;
use Win32::OLE qw(in with);
my @fichiers;
print 'entrer le lien : ';
my $repertoire = <STDIN>;
chomp $repertoire;
find( { wanted => \&process, }, $repertoire );
 
sub process {
  my $fichier = $File::Find::name;
 
  if ( ( -f $fichier ) && ( $fichier =~ m/[a-z]*.xlsx?/ ) ) {
    $fichier = File::Spec->catfile($fichier);
    push @fichiers, $fichier;
  }
}
 
foreach my $file (@fichiers) {
  print "- $file\n";
}

[achraf.z]

bonjour votre code m'est vraiment utile merci mais j'ai pas compris comment vous avez fais puisque je veux modifier le code pour avoir l les liens sous la forme c:\\perl\\y\\... car je veux rentrer ces liens comme argument pour une fonction Open('c:\\perl\\y\\... ') et merci d'avance.