[file::find] probleme avec les arguments obtenus
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:
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";
} |
