[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl -w
   2  #
   3  ### $Id: diff.pl 6654 2011-11-27 16:35:54Z dbo $ ###
   4  #
   5  ##### Compare 2 fichiers, utilisé par l'inventaire #####
   6  #
   7  $fichin=$ARGV[0];
   8  $fichout=$ARGV[1];
   9  # $fichin="s.txt";
  10  # $fichout="d.txt";
  11  
  12  # ouverture en lecture 
  13  open(IN, $fichin) or die "Impossible d'ouvrir $fichin\n";
  14  open(OUT, ">$fichout");
  15  
  16  # debut de la boucle generale
  17  SUIVANT:
  18  while (<IN>) { 
  19  # print "Ligne numero $.\n";
  20  chomp;
  21  s/\r// if /\r$/; 
  22  
  23  # tester le début de paragraphe
  24  if (/^(\d)/) {
  25   $op="a" if /a/;
  26   $op="d" if /d/;
  27   $op="c" if /c/;
  28   # on élimine cette ligne
  29   next SUIVANT;
  30  }
  31  if  (/^---/) {
  32   # on élimine cette ligne
  33   next SUIVANT;
  34  }
  35   # traitement d'une ligne à afficher
  36   $fin="1;" if /^>/;
  37   $fin="2;" if /^</;
  38   $fin="31;" if (/^>/ and $op eq "c") ;
  39   $fin="32;" if (/^</ and $op eq "c") ;
  40  
  41   s/^.{2}//;
  42   print OUT "$_$fin\r\n";
  43  }
  44  close OUT;
  45  close IN;