Bonjour tout le monde,

Je suis débutante en Perl et j'ai besoin de votre précieuse aide !

Dans le cadre de mon stage, j'ai besoin d'indexer mon corpus, et pour ça j'ai fais un script pour extraire les noms des fichiers de mon corpus plus les 5 premières lignes de chaque fichier. Le hic c'est que je ne sais pas comment faire un tableau associatif qui a comme clé le nom de fichier et comme valeur les 5 premières ligne du fichier.
Mon script reconnait le nom de fichier comme clé mais pas les 5 premières lignes comme valeur.
Est ce que vous pourriez pointer où ça ne va pas ?

Voici le 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
29
30
31
32
33
34
35
36
use warnings ;
no warnings 'uninitialized';
 
@files=glob("./toutcorpus-juin-txt-utf8/*.txt"); 
 
foreach $elt (@files) 
{
	print $elt . "\n"; 
 
	open(IN, "<$elt") or die "Impossible d'ouvrir le fichier : $/\n";
 
 
			$nb = 0;
			while ( $line = <IN>) 
			{
 
				chomp($line);
				$nb++;
				if ($nb > 6) 
				{
					next;
				} 
				else 
				{
					print "\n" . $line ."\n";
				}
				$CleValeur{$elt}=$CleValeur{$line};
 
				while (($elt, $line) = each (%CleValeur))
				{
				print "Cle est : $elt	Valeur est : $line \n"; 
				}		
			}
 
}
close (IN);
Merci de votre aide !

Sofia