root/trunk/tsuite/auto/editnostring.pl

#!perl -w
#   #!/usr/bin/perl/


# edit all input models that do not match a certain string  

$nMod = 0;
while(defined($input= glob("*.in")) )
{
        system "grep 'punch dr'  $input >checkend.txt";

#       if non-zero length, model had botched asserts
#       -s option returns number of bytes if file exists and has finite size
        if( (-s "checkend.txt")==0 )
        {
           ++$nMod;

#         actually view the output
          system "gvim $input";
        }
}
printf( "\n %i models had the string, and were edited.\n ",$nMod);