Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #!/usr/local/bin/perl
  2. # -*- coding: utf-8 -*-
  3.  
  4. $lignes_de_reponse = 6;
  5.  
  6. while(chomp($essai = <STDIN>)){
  7.     if(length($essai) != 0 && substr($essai,0,1) ne "#"){
  8.         for ($i=0; $i < $lignes_de_reponse; $i++){
  9.             chomp($tmp=<STDIN>); @reponse[$i]=$tmp;
  10.         }
  11.         $essai_ = $essai;
  12.         $essai_ =~ s/\'/\\\'/g;
  13.         @args = ("echo \"$essai_\" | chemeq > /tmp/tmp.1");
  14.         system @args;
  15.         open (TMP,'/tmp/tmp.1');
  16.         $ok=1;
  17.         for ($i=0; $i < $lignes_de_reponse; $i++){
  18.             chomp($tmp=<TMP>); @result[$i]=$tmp;
  19.             if (@result[$i] ne @reponse[$i]){$ok=0;}
  20.         }
  21.         if ($ok){print "OK\t\t$essai\n";}
  22.         else{
  23.             print "***ERREUR***\t$essai\n";
  24.             for ($i=0; $i < $lignes_de_reponse; $i++){
  25.                 if(@result[$i] ne @reponse[$i]){
  26.                     print "ligne $i : on attendait\n";
  27.                     print "\t\"@reponse[$i]\"\n";
  28.                     print "on a trouvé\n";
  29.                     print "\t\"@result[$i]\"\n";
  30.                 }
  31.             }
  32.         }
  33.     } else {
  34.         if ($essai =~ /[a-zA-Z]/) {print "$essai\n";}
  35.     }
  36.    
  37. }
  38.  
  39. system ("(cd /tmp; rm -f tmp.1)");
  40.  
  41.  
  42.