J'ai trié mon fichier sur le champ qui m'intéresse et j'obtiens un nouveau fichier de ce type:
rouge
bleu
rouge
vert
Mon problème est que je ne sais pas comment balayer ce nouveau fichier et comparer les lignes pour qu'il me récupère
que les valeurs identiques?
Voilà ce que j'ai réussi à faire:
$file="c:\\table.txt";
# Ouvre le fichier, qui s'il n'existe pas
open(INFILE,$file) or die "Impossible de trouver le fichier $file\n";
while () {$string=$_;
if ($string=~ /M/){
@liste=substr($_, 6, 8);
open ("NEWFILE", ">>mont.txt") or die ("Impossible d'ouvrir le fic. mont.txt");
while (<@liste>) { print NEWFILE "$_\n" ;# Ecrit toutes les lignes dans mont.txt
}
}
}
Je souhaite faire du perl car je suis sur Windows.
[^] # Re: Precision
Posté par milounix . En réponse au message Lignes avec mots identiques. Évalué à 2.
rouge
bleu
rouge
vert
Mon problème est que je ne sais pas comment balayer ce nouveau fichier et comparer les lignes pour qu'il me récupère
que les valeurs identiques?
Voilà ce que j'ai réussi à faire:
$file="c:\\table.txt";
# Ouvre le fichier, qui s'il n'existe pas
open(INFILE,$file) or die "Impossible de trouver le fichier $file\n";
while () {$string=$_;
if ($string=~ /M/){
@liste=substr($_, 6, 8);
open ("NEWFILE", ">>mont.txt") or die ("Impossible d'ouvrir le fic. mont.txt");
while (<@liste>) { print NEWFILE "$_\n" ;# Ecrit toutes les lignes dans mont.txt
}
}
}
Je souhaite faire du perl car je suis sur Windows.
Merci