#!/usr/bin/perl open(patronC,"$ARGV[0]"); # on ouvre le premier fichier qu'on va lire open(patronT,"$ARGV[1]"); # on ouvre le deuxieme fichier qu'on va lires open(FILEOUT, ">tripatrons.txt"); # on ouvre le fichier dans lequel on va écrire $i=0; $a=0; $r=0; while () { my $ligne = $_; chomp $ligne; $ligne=~s/ +/ /g; $tabC[$i]=$ligne; $i++; } while () { my $ligne = $_; chomp $ligne; $ligne=~s/ +/ /g; $tabT[$a]=$ligne; $a++; } foreach my $e (@tabC) { #print "C : <$e>\n"; foreach my $r (@tabT) { #print "T : <$r>\n"; if ($e eq $r){ $tabOK{$e}++; } } } foreach my $a (keys %tabOK) { print FILEOUT "$a\n"; } close(patronC); # on ferme le fichier en lecture close(patronT); # on ferme le fichier en lecture close(FILEOUT);# on ferme le fichier en sortie