From 555c23069d7dcb5f89ef075f07471fa7fe8881aa Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci Date: Mon, 20 Feb 2012 12:50:05 +0100 Subject: New --post-process option. Includes some cleaning of the STDOUT messages --- utils/post-processing/z-every-line.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'utils') diff --git a/utils/post-processing/z-every-line.pl b/utils/post-processing/z-every-line.pl index 5f9d311b6..49d5f4502 100755 --- a/utils/post-processing/z-every-line.pl +++ b/utils/post-processing/z-every-line.pl @@ -1,11 +1,12 @@ -#!/usr/bin/perl +#!/usr/bin/perl -i use strict; +use warnings; my $z = 0; # read stdin and any/all files passed as parameters one line at a time -for (<>) { +while (<>) { # if we find a Z word, save it $z = $1 if /Z(\d+(\.\d+)?)/; -- cgit v1.2.3