New --post-process option. Includes some cleaning of the STDOUT messages
This commit is contained in:
parent
ae35df716f
commit
555c23069d
10 changed files with 63 additions and 28 deletions
|
@ -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+)?)/;
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue