src/os_regex/examples/validate.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 if (@ARGV < 2) {
   7     die "$0 file error_msg\n";
   8 }
   9
  10 my ($prog, $file,$msg) = (@ARGV);
  11
  12 open(FILE,$file) || die "Error opening file: $file\n";
  13
  14 if (! -f $prog) {
  15     die "File $prog not present\n";
  16 }
  17
  18 while(<FILE>) {
  19     my $line = $_;
  20     print "running: $prog $line\n";
  21     my $result =  `$prog $line`;
  22     if ($result =~ /$msg/) {
  23         print $result;
  24         print "\t ** $line **\n";
  25         <STDIN>;
  26     } else {
  27         print $result;
  28     }
  29 }
  30