1. #!/usr/bin/perl
3. use strict;
4. use warnings;
6. my $xml1="full.xml";
7. my $xml2="full2.xml";
8. my $result="result.txt";
10. # Ouverture des fichiers
11. open (fXML1, $xml1) or die "$xml1 : $!";
12. open (fXML2, $xml2) or die "$xml2 : $!";
13. # Copie du contenu des fichiers dans un tableau
14. my @lines1=<fXML1>;
15. my @lines2=<fXML2>;
16. # Fermeture des fichiers
17. close (fXML1);
18. close (fXML2);
20. # Afficher la taille des tableaux
21. print scalar(@lines1)."\n";
22. print scalar(@lines2)."\n";
24. #création du fichier résultat
25. open (fResult,">$result" ) or die "$result : $!";
27. foreach my $line2 (@lines2)
28. {
29. my $present=0;
30. foreach my $line1 (@lines1)
31. {
32.  if ($line1 eq $line2)
33.  {
34.   $present=1;
35.   next;
36.  }
37. }
38. if ($present==0)
39. {
40.  print fResult $line2;
41. }
42. }
44. #fermeture du fichier résultat
45. close (fResult);

1. #!/usr/bin/perl
3. use strict;
4. use warnings;
5. use Array::Utils qw(:all);
7. my $xml1="full.xml";
8. my $xml2="full2.xml";
9. my $result="result2.xml";
11. # Ouverture des fichiers
12. open (fXML1, $xml1) or die "$xml1 : $!";
13. open (fXML2, $xml2) or die "$xml2 : $!";
14. # Copie du contenu des fichiers dans un tableau
15. my @lines1=<fXML1>;
16. my @lines2=<fXML2>;
17. # Fermeture des fichiers
18. close (fXML1);
19. close (fXML2);
21. # Afficher la taille des tableaux
22. print scalar(@lines1)."\n";
23. print scalar(@lines2)."\n";
25. #création du fichier résultat
26. open (fResult,">$result" ) or die "$result : $!";
28. # check if arrays contain same members
29. if ( !array_diff(@lines1, @lines2) )
30. {
31. print "Les xml sont identiques";
32. }
34. # get items from array @lines1 that are not in array @lines2
35. my @minus = array_minus( @lines2, @lines1 );
37. print fResult @minus;
39. #fermeture du fichier résultat
40. close (fResult);

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my ($xml1, $xml2, $result) =('full1.xml', 'full2.xml', 'result.xml');
my %xml1_lines;
 
open(my $fh, '<', $xml1);
while (<$fh> ) {
    $xml1_lines{$_}++;
}
close($fh);
 
open($fh, '<', $xml2);
open(my $gh, '>', $result);
while (<$fh> ) {
    unless ($xml1_lines{$_}) {
        print $gh $_;
    }
}
close($gh);
close($fh);