Discussion :

[k6971]

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:

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

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

[MarneusCalgarXP]

C'est assez simple, tu récupères le nom du fichier mais tu ouvres CO_OG.txt à chaque fois...

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
print "fichier:$_";    		
open(FILE_DATA, " < CO_0G.txt") || die "File Out/$_ Erreur E/S : $!\n";

à remplacer par

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
open(FILE_DATA, '<', $_) || die "File Out/$_ Erreur E/S : $!\n";

[k6971]

C'est assez simple, tu récupères le nom du fichier mais tu ouvres CO_OG.txt à chaque fois...

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
print "fichier:$_";    		
open(FILE_DATA, " < CO_0G.txt") || die "File Out/$_ Erreur E/S : $!\n";

à remplacer par

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
open(FILE_DATA, '<', $_) || die "File Out/$_ Erreur E/S : $!\n";

En fait je m'étais trompé c'est que dans mon appel je devais ajouté le nom du dossier avant $_ comme je passe par une fonction.

[MarneusCalgarXP]

Ok.

Ps: il ne faut pas modifier le titre du message en rajoutant résolu devant, il suffit de cliquer sur le bouton