diff options
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/model.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/scripts/model.pl b/scripts/model.pl new file mode 100755 index 0000000..04367b7 --- /dev/null +++ b/scripts/model.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w + +use strict; + +open(FH, $ARGV[0]); + +while ( my $line = <FH> ) { + + chomp $line; + + if ( $line =~ /^\s*([0-9,\.\-]+)\s+([0-9,\.\-]+)\s+([0-9,\.\-]+)/ ) { + + my $x = $1; my $y = $2; my $z = $3; + + printf("%8.2f%8.2f%8.2f\n", $x/100.0, $y/100.0, $z/100.0); + + } else { + printf("%s\n", $line); + } + +} + +close(FH); + +exit(0); + |