New --post-process option. Includes some cleaning of the STDOUT messages

This commit is contained in:
Alessandro Ranellucci committed 2012-02-20 12:50:05 +01:00
1 parent ae35df716f
commit 555c23069d
10 files changed
+63 -28

No files matched your search

+3 -2
View File
@@ -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+)?)/;