X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/04fed8e4657d28df3ca947ea34c2a5d8f9ccc02f..61d7dd11d4a450a64f2817ee4db0ec7fa5880b42:/bin/work/pipeparser?ds=sidebyside

diff --git a/bin/work/pipeparser b/bin/work/pipeparser
new file mode 100755
index 0000000..fc0e744
--- /dev/null
+++ b/bin/work/pipeparser
@@ -0,0 +1,24 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Cwd;
+
+my $dir = '.';
+if (@ARGV == 1) {
+    $dir = $ARGV[0];
+}
+
+while (<$dir/ReportID*>) {
+    open(FILE, $_) or die $!;
+    my $name = $_;
+    while (<FILE>) {
+        if ( /InsideDiameter=(\d+)/ ) {
+            if ($1 > 1000 && $1 < 1100) {
+                print "$name\n";
+            }
+            last;
+        }
+    }
+}