Discussion :

[nansima2011]

salut
je suis débutante sous perl et je n'arrive pas a traiter le contenu des fichiers d'un répertoire:
voila un extrait de mon script:

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
$dossierData = "C://toto";
 
#print "$dossierData\n";
 
	 opendir DIR, $dossierData ; #ouvrir le répertoire
	 my @files = readdir DIR; #lister les fichier ASCII de répertoire
 
#print "@files\n";
foreach my $fichier (@files) #boucle for pour traiter fichier par fichier
{ 
 
	if($fichier=~/ri/i)
 
	{
		print "$fichier\n";
		open FILE, "< C:\\\toto\\RIff"; #ouvrir le fichier 				while ($ligne = <FILE>) #tantque le fichier ASCII pas vide
		 {
 
			   @var= split "," ,$ligne; #prendre chaque ligne structuré et la mettre dans un tableau
			   print "ligne deeeeeeeeeeeeeee  @var\n";
 
 
		 }
 
 
	}
	}
      close DIR;

voila mon gmail nansima2011@gmail.com

merci d'avance

[Dimitry.e]

Que veux-tu faire exactement ?