process_geom_file.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 while (my $line=<>) {
   6 chomp $line;
   7
   8 while ($line=~m/([\d\.\-\+]+)pt/g) {
   9   my $value = $1;
  10   $value = $value*25.4/72.27;
  11   print (sprintf "%7.2f",$value).' ';
  12 }
  13
  14 print "\n";
  15 }
  16
  17