22 lines
229 B
Perl
22 lines
229 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $z = 0;
|
||
|
|
|
||
|
|
for (<>) {
|
||
|
|
if (/Z(\d+(\.\d+)?)/) {
|
||
|
|
$z = $1;
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
if (!/Z/ && /X/ && /Y/ && $z > 0) {
|
||
|
|
s/\s*([\r\n\;\(].*)//gs;
|
||
|
|
print "$_ Z$z $1";
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|