Komen faire un tableau d'un fichier en Perl?

#!/usr/bin/perl
# ici tu dois avoir autre chose vu que tu es sur windows
use warnings;use strict;

{
   local $/;      # mode slurp
   my $fic = <>;  # je capture le contenu de fichier dans $fic
   print $fic;    # j'affiche le contenu de $fic
}
__END__
pour exemple applique le code au script lui même
pour voir le résultat

while ($ligne=<$fic>) {
    push @tab_motsfic,$ligne;
} 

mot
fichier
texte
je
insertion
faire
mettre
perl
programme
table
script
ouvert
mais
bien
pour
la
dernière
ligne
oui
non
trouver
compteur

Voilà un exemple

debian:~/trash# perl karinn.pl
Saisissez un mot ou une phrase :
je ne suis pas bien
Le nombre de mots tapés est : 5
Le nombre de mots de fichier est : 22
Il y a 3 qui ne sont pas dans le ficher:
ne suis pas
Voulez-vous ajouter le mot ne au fichier? O[ui] ou N[on] : o
Voulez-vous ajouter le mot suis au fichier? O[ui] ou N[on] : o
Voulez-vous ajouter le mot pas au fichier? O[ui] ou N[on] : o
debian:~/trash#

debian:~/trash# cat fichier.txt
mot
fichier
texte
je
insertion
faire
mettre
perl
programme
table
script
ouvert
mais
bien
pour
la
dernière
ligne
oui
non
trouver
compteur
ne
suis
pas

#!/usr/bin/perl
#
use warnings;use strict;

my (@mots_douteux,@fic);
my %dans_fichier;
my ($fichier,$temp) = ("fichier.txt", "temp.txt");

# ouverture de fichier en lecture
open F_LIRE, "$fichier"
    or die "E/S: $!\n";

# ouverture de fichier temporaire en mode ajout
open F_ECRIRE, ">>$temp"
    or die "E/S: $!\n";

# sauvagarde fichier dans un tableau
# en même temp je fait un chomp sur chaque element
map { chomp } @fic = <F_LIRE>;

# je sauvegarde le contenu de fichier original
print F_ECRIRE "$_\n" foreach @fic;

# début de programme
print "Saisissez un mot ou une phrase :\n";

chomp(my $texte = <STDIN>);
$texte =~ s/\W/ /g;                  # remplace signes punctuation avec un espace
my @mot_texte = split /\s+/, $texte; # pour split

# aide mémoire pour trouver les mots 
# qui n'existent pas dans le fichier
@dans_fichier{@fic} = ();

# sauvegarde des mots inexistants dans le fichier
foreach (@mot_texte){
  push @mots_douteux,$_  unless exists $dans_fichier{$_};
}

print "Le nombre de mots tapés est : ", @mot_texte+0,"\n";
print "Le nombre de mots de fichier est : ",@fic+0,"\n";
print "Il y a ",@mots_douteux+0," qui ne sont pas dans le ficher:\n";
print "@mots_douteux\n";

# traitment de mots trouvés
foreach (@mots_douteux){
  print "Voulez-vous ajouter le mot $_ au fichier? O[ui] ou N[on] : ";
  chomp(my $rep = <STDIN>);
  print F_ECRIRE "$_\n" if $rep =~ /o(ui)?/i;  
}
close F_LIRE;
close F_ECRIRE;

rename($fichier,"fichier_original.txt")
     or die "E/S : $!";
rename ($temp,$fichier)
     or die "E/S : $!\n";

#!/usr/bin/perl
use warnings;use strict;

my (@mots_douteux,@fic);
my %dans_fichier;
my ($fichier,$temp) = ("fichier.txt", "temp.txt");

# ouverture de fichier en lecture
open F_LIRE, "$fichier"
    or die "E/S: $!\n";

# ouverture de fichier temporaire en mode écriture
open F_ECRIRE, ">$temp"
    or die "E/S: $!\n";

# sauvagarde fichier dans un tableau
# en même temp je fait un chomp sur chaque element
map { chomp } @fic = <F_LIRE>;

# début de programme
print "Saisissez un mot ou une phrase :\n";

chomp(my $texte = <STDIN>);
$texte =~ s/\W/ /g;                  # remplace signes punctuation avec un espace
my @mot_texte = split /\s+/, $texte; # pour split

# aide mémoire pour trouver les mots 
# qui n'existent pas dans le fichier
@dans_fichier{@fic} = ();

# sauvegarde des mots inexistant dans le fichier
foreach (@mot_texte){
  push @mots_douteux,$_  unless exists $dans_fichier{$_};
}

print "Le nombre de mots tapés est : ", @mot_texte+0,"\n";
print "Le nombre de mots de fichier est : ",@fic+0,"\n";
print "Il y a ",@mots_douteux+0," qui ne sont pas dans le ficher:\n";
print "@mots_douteux\n";

# traitment de mots trouvés
foreach (@mots_douteux){
  print "Voulez-vous ajouter le mot $_ au fichier? O[ui] ou N[on] : ";
  chomp(my $rep = <STDIN>);
  push @fic,$_ if $rep =~ /o(ui)?/i;  
}
# écriture dans le fichier temporaire
# et tri par ordre alphabétique
print F_ECRIRE "$_\n" foreach sort @fic;

close F_LIRE;
close F_ECRIRE;

# sauvegarde de fichier original
rename($fichier,"fichier_original.txt")
     or die "E/S : $!";

# le nouveau fichier
rename ($temp,$fichier)
     or die "E/S : $!\n";

while ($ligne=<$fic>) {         # pour chaque ligne de fichier
    push (@tab_motsfic,$ligne); # ajoute au tableau l
}                               # j'ai supposé que chaque ligne c'est un seule mot
                                # sinon tu seras obligé de spliter
                                # chaque ligne, avant d'ajouter au tableau
# ici je ferme le bloc de while
# dorénavant j'utilise le tableau
# qui contient le fichier


foreach $elt2(@tab_motsfic) { 

#!/usr/bin/perl
use strict;use warnings;

my ($compteur1,$compteur2,$compteur3)=(0,0,0);
my (@tab_motstapes, @tab_motsfic, @mots_douteux);
my %que_dans_tab_motstapes;
my ($e,$rep,$fic,$elt3);


print "Saisir un texte autrement dit un mot ou une ou plusieurs phrases \n";

$_=<STDIN>;
@tab_motstapes=split;

# en perl on peut dire de façon naturelle
# affiche quelque chose pour chaque élément
# d'un tableau
print "$_\n" foreach (@tab_motstapes);
$compteur1=@tab_motstapes+0;


open $fic,'<',"fichier_exo_0107.txt" or die "fichier non ouvert\n";
# je stocke les mots de fichier dans un tableau
while (<$fic>) {
  for $e(split){
    push @tab_motsfic,$e;
  }
}

# pas besoin de faire un boucle
# avec un compteur
# en Perl si on utilise le tableau
# dans un contexte scalaire on obtient
# le nombre d'élémnents
$compteur2=@tab_motsfic+0;

# ici je vais commencer le traitement
# pour obtenir les mots douteux
# pour ça j'utilise un hash
# vu que les clés d'un hash sont unique
# c'est facile de trouver les mots tapés
# qui ne se trouve pas dans le fichier
@que_dans_tab_motstapes{@tab_motsfic}=();

# donc pour chaque mot tapé
# je stocke seulement les mots
# qui ne sont pas parmi les clés de hash
# ce qui veut dire que sont que dans
# le tableau de mots tapés
foreach(@tab_motstapes){
  push @mots_douteux,$_ unless exists $que_dans_tab_motstapes{$_};
}

# toujours tableau en contexte scalaire
# nous donne le nombre d'éléments

$compteur3 = @mots_douteux+0;

print "Le nombre de mots tapes est $compteur1\n";
print "Le nombre de mots du fichier est $compteur2\n";
print "Les mots douteux sont $compteur3\n";

close ($fic);
# écriture dans le fichier
#
open $fic,'>>',"fichier_exo_0107.txt" or die "fichier non ouvert\n";
$compteur3 = 0;
foreach $elt3(@mots_douteux) {
	print "Ces mots @mots_douteux vous sont proposes pour verification.\n";
	print "Si son(leur) orthographe est correcte ou qu'il s'agit d'un nouveau mot,\n";
	print "dites oui; sinon s'il ya un probleme d'orthographe, refusez\n";
	chomp($rep=<STDIN>);
  
  if ($rep eq "oui") {
    print $fic "$elt3\n";
    $compteur2++;
    $compteur3++;
  } else {
    $rep="non";
    $compteur2=$compteur2;
  }    
}
print "Le nombre de mots ajoutes au fichier apres leur verification est $compteur3\n";
print "Le nombre de mots du fichier est maintenant de $compteur2\n";
close $fic;
__END__
L'utilisation des boucles imbriquées foreach
n'est pas souhaitable.
J'ai essayé de ne pas trop compliqué ton travail.
Cependant je n'ai pas pu m'abtenir d'utiliser certains 
téchniques Perl
Par exemple

au lieu de
$texte = <STDIN>;
chomp ($text);

on peut écrire
chomp($text = <STDIN>);

Pour print, pas besoin d'utiliser les paranthèses
on n'est pas en C
perl "hello, monde!";

Ca marche aussi
perl ("hello, monde!");

mais les paranthèses sont totalement inutiles;

Au lieu de 
$n = $n + 1;

on peut écrire

$n += 1;

et même

$n++;