A very simple perl script to read all log simulation files of specman regression and generate a nice failure report.

1. The scripts works on one file at a time. It scans each log file, generated by specman, for the following error strings (specified in regular expression) :
   
   
   1. Dut error
   2. Error:
   3. Simulation Result: [^P]
   
   For the Dut error, the entire group of lines between two bars are printed.


2. The script is invoked by scanning the log directories. Two examples follow:
   
   
   1. find ELOG -type f | xargs -n1 | xargs -i= perl ~/bin/e_reg_report.pl =
   2. foreach x ( `find ELOG/*.elog` )
      perl ~/bin/e_reg_report.pl $x
      end
      
   
   


3. The script is listed below:
   
   
   1. #!/bin/perl
   3. open(FPR, $ARGV[0]) || die("open fail $ARGV[0]\n");
   4. open(FPW, ">>reg_rpt.txt");
   6. @ignore_a = ();
   7. push(@ignore_a, "SEQ_WATCHDOG_TC issued on channel");
   10. $line_i=0;
   11. $dut_error=0;
   12. while(eof(FPR) != 1) {
   13.   $line=<FPR>; chomp($line);
   14.   $n=$#a;
   15.   if($line =~ /Dut error/) {
   16.     $dut_error=1;
   17.   }
   18.   if($line =~ /-----------------------/) {
   19.     if($n == -1) {
   20.       push(@a, $line);
   21.     } else {
   22.       push(@a, $line);
   23.       if($dut_error == 1) {
   24.         #shall I ignore the error
   25.         $ignore=-1;
   26.         foreach $j ( @a ) {
   27.         $len=$#ignore_a;
   28.         if($len >= 0) {
   29.           foreach $k ( @ignore_a ) {
   30.             $ignore=index($j, $k);
   31.             if($ignore >= 0) {last;};
   32.           }
   33.           if($ignore >= 0) {last;};
   34.         }
   35.         }
   36.         if($ignore < 0) {
   37.         foreach $j ( @a ) {
   38.           print FPW ("$ARGV[0] :: $j\n");
   39.         }
   40.         }
   41.         $dut_error=0;
   42.       }
   43.       @a=(); $n=0;
   44.     }
   45.   }
   46.   elsif($n >= 0) {
   47.     push(@a, $line);
   48.   }
   49.   elsif($line =~ /Error:/) {
   50.     print FPW ("$ARGV[0] :: $line\n");
   51.   }
   52.   elsif($line =~ /Simulation Result: [^P]/) {
   53.     print FPW ("$ARGV[0] :: $line\n");
   54.   }
   55.   $line_i++;
   56. }#while
   58. close FPR;
   59. close FPW;

Home	How to change the default bash internal field space separator. A simple c-code program to read a memory array from verilog RTL, using VPI.