#!/usr/bin/perl -w # ### $Id: diff.pl 6654 2011-11-27 16:35:54Z dbo $ ### # ##### Compare 2 fichiers, utilisé par l'inventaire ##### # $fichin=$ARGV[0]; $fichout=$ARGV[1]; # $fichin="s.txt"; # $fichout="d.txt"; # ouverture en lecture open(IN, $fichin) or die "Impossible d'ouvrir $fichin\n"; open(OUT, ">$fichout"); # debut de la boucle generale SUIVANT: while () { # print "Ligne numero $.\n"; chomp; s/\r// if /\r$/; # tester le début de paragraphe if (/^(\d)/) { $op="a" if /a/; $op="d" if /d/; $op="c" if /c/; # on élimine cette ligne next SUIVANT; } if (/^---/) { # on élimine cette ligne next SUIVANT; } # traitement d'une ligne à afficher $fin="1;" if /^>/; $fin="2;" if /^/ and $op eq "c") ; $fin="32;" if (/^