From 9a610395ced694a25bcff638cc8db02dd06fef98 Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci Date: Sun, 11 Dec 2011 10:20:53 +0100 Subject: Move post-processing to utils/ directory --- utils/post-processing/z-every-line.pl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100755 utils/post-processing/z-every-line.pl (limited to 'utils') diff --git a/utils/post-processing/z-every-line.pl b/utils/post-processing/z-every-line.pl new file mode 100755 index 000000000..5f9d311b6 --- /dev/null +++ b/utils/post-processing/z-every-line.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +use strict; + +my $z = 0; + +# read stdin and any/all files passed as parameters one line at a time +for (<>) { + # if we find a Z word, save it + $z = $1 if /Z(\d+(\.\d+)?)/; + + # if we don't have Z, but we do have X and Y + if (!/Z/ && /X/ && /Y/ && $z > 0) { + # chop off the end of the line (incl. comments), saving chopped section in $1 + s/\s*([\r\n\;\(].*)//s; + # print start of line, insert our Z value then re-add the chopped end of line + print "$_ Z$z $1"; + } + else { + # nothing interesting, print line as-is + print; + } +} -- cgit v1.2.3