Help for this page

Select Code to Download


  1. or download this
    while (<REPORT>) {
        s/^\s+//;    # get rid of leading whitespace
        s/\s+$//;    # get rid of trailing whitespace
    ...
        if (/(Cosmetics|Function)/) {
            s/.+_X_(Pass|Fail).*/$1/;    # remove all but Pass or Fail
        }
    
  2. or download this
    s/Failure Detail - //g;    # must come before next regexp
    s/³(Pass|Fail)/³$1³/;    # Pass -> Pass³, Fail³ -> Fail³³ (implied :)