dumpstl

   1 #!/usr/bin/perl
   2 sub rd ($) { my ($l)=@_; my $v; read(STDIN,$v,$l)==$l or die; return $v; }
   3 $hdr= rd(80);
   4 $number= rd(4);  $number= unpack "V", $number;
   5 for ($i=0; $i<$number; $i++) {
   6     for ($fi=0; $fi<4; $fi++) {
   7         printf " %5d %d ", $i,$fi;
   8         foreach $coord (qw(x y z)) {
   9             $float= rd(4);  $float= unpack "f", $float;
  10             printf "    %s=%15g", $coord, $float;
  11         }
  12         print "\n";
  13     }
  14     rd(2);
  15
  16 }