I have a program that read tow Text files, and compare each line word by word, if the line contain a cerain number of term as intersection , so the program will display the line

#!/usr/bin/perl

print "bonjour\n";
open(FIC, $ARGV[0]);
open(FICC, $ARGV[1]);

  my @a = ();
  my @b = ();
  my $l=0;
  my $v=0;
  my $g=0;
my $h=0;
my $t=0;
my $q=0;
print "choose the outpu file name\n";


chomp(my $fic2=<STDIN>);
open(FIC2, ">$fic2");

#---------------------------------------------------
# initialisation des variables
#---------------------------------------------------

$i=0;
$j=0;
$u=0;
$v=0;
$t=0;
$kk=0;
$total=0;

while (<FICC>) {
my $ligne=$_;

$b[$i]=lc($ligne);




$i++;
}




while (<FIC>) {
my $ligne=$_;

$a[$j]=lc($ligne);



$j++;
}

foreach my $che(@b){

chomp($che);


@aa=split(/\s/,$che);
$u++;




foreach my $kh(@a){


 
chomp($kh);

@bb=split(/\s/,$kh);




$v++;

 $t=0;$total=0;
for ($l=0;$l<=$#bb;$l++){



for ($m=0;$m<=$#aa;$m++){

# here compare the word of each line

if(($bb[$l] eq $aa[$m]) ){

$t++;

$m++;
$kk=1;

# if the tow termes are identical so $kk=1;
goto che
}


}
che:

if($kk==1)
{

#calculate the number of identic terms per line with $number

$total++; 
}

$kk=0;
}
 #print the retrieved line
 print FIC2 "$u: $kh\n";
}

$v=0;

}

[download]

the problem with this code it is too slow with file about 50 MO, how to speed up this code thank you

The File1 contain many line for example:</p>

chirac prime paris
              
         
chirac prime jacques
       
         
chirac prime president 
      
         
chirac paris france
       
         
chirac paris french

[download]
The File 2:


chirac presidential migration 


chirac presidential paris 


chirac prime president
 

chirac presidential 007
 

chirac paris migration 


chirac paris french

[download]
 output

1: chirac prime paris
1: chirac prime jacques
1: chirac prime president 
1: chirac paris france
1: chirac paris french
2: chirac prime paris
2: chirac prime jacques
2: chirac prime president 
2: chirac paris france
2: chirac paris french
3: chirac prime paris
3: chirac prime jacques
3: chirac prime president 
3: chirac paris france
3: chirac paris french
4: chirac prime paris
4: chirac prime jacques
4: chirac prime president 
4: chirac paris france
4: chirac paris french
5: chirac prime paris
5: chirac prime jacques
5: chirac prime president 
5: chirac paris france
5: chirac paris french
6: chirac prime paris
6: chirac prime jacques
6: chirac prime president 
6: chirac paris france
6: chirac paris french

[download]

In reply to compare two text file line by line, how to optimise by thespirit

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.