Bonsoir
J'arrive à parcourir tous les fichiers qui se trouvent dans mon rep mais si j'essaie de les lire j'ai l'rreur suivante:
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Directory:Outfichier:CO_0G.txtFile CO_0G.txt Erreur E/S : Invalid argument
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
30
31
32
33
34
35
36 sub DoDir { my( $sdir) = @_; print "Directory:$sdir"; opendir(SDIR, $sdir) || die "Unable to open directory $sdir :$!"; my(@sfiles) = grep {!/^\.\.?$/ } readdir(SDIR); closedir(SDIR); foreach (@sfiles) { if (-d ($ssubdir = "$sdir\\$_")) { $dsubdir = $ddir . substr($ssubdir, length($sdir)); &DoDir($ssubdir); } else { print "fichier:$_"; open(FILE_DATA, " < CO_0G.txt") || die "File Out/$_ Erreur E/S : $!\n"; open(FILE_DATA_RANDOM, "> OutRandom/RANDOM_$fichier") || die "File OutRandom/RANDOM_$fichier Erreur E/S : $!\n"; while ($ligne=<FILE_DATA>) { @tab = split('\t',$ligne); print @tab ; $risque = $tab[11]; print $risque; $tab[11]=$tab[11]*rand(10)*0,1+$tab[11]; print FILE_DATA_RANDOM @tab,"\n"; } close FILE_DATA; close FILE_DATA_RANDOM; } #print "Fin dir:$sdir"; } }
Partager