diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2012-02-20 15:50:05 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2012-02-20 15:50:05 +0400 |
commit | 555c23069d7dcb5f89ef075f07471fa7fe8881aa (patch) | |
tree | db3b4a798f9991c80513f58449627bc8d770be00 /utils | |
parent | ae35df716fa2fb9fba8b22a7cc0f702d8ef76bf2 (diff) |
New --post-process option. Includes some cleaning of the STDOUT messages
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/post-processing/z-every-line.pl | 5 |
1 files changed, 3 insertions, 2 deletions
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+)?)/; |