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";
}