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