bin/work/pipeparser

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use Cwd;
   7
   8 my $dir = '.';
   9 if (@ARGV == 1) {
  10     $dir = $ARGV[0];
  11 }
  12
  13 while (<$dir/ReportID*>) {
  14     open(FILE, $_) or die $!;
  15     my $name = $_;
  16     while (<FILE>) {
  17         if ( /InsideDiameter=(\d+)/ ) {
  18             if ($1 > 1000 && $1 < 1100) {
  19                 print "$name\n";
  20             }
  21             last;
  22         }
  23     }
  24 }