home *** CD-ROM | disk | FTP | other *** search
/ vis-ftp.cs.umass.edu / vis-ftp.cs.umass.edu.tar / vis-ftp.cs.umass.edu / pub / Medical / 3dhead / gif / script.pl
Perl Script  |  1997-01-20  |  320b  |  18 lines
  1. #! /usr/local/bin/perl
  2.  
  3. $cmd = "imginfo $ARGV[0]";
  4.  
  5. open( fp, "$cmd |" ) || die "Failed exec for $cmd\n";
  6.  
  7. while ( <fp> ) {
  8.   if ( /Min\/Max/ ) {
  9.     ( $tag, $min, $sep, $max ) = split( /\s+/ );
  10.     $cmd = "cscale $ARGV[0] enhanced/$ARGV[0] $max $max $max -d";
  11.     print "$cmd\n";
  12.     `$cmd`;
  13.     last;
  14.   }
  15. }
  16.  
  17. close fp;
  18.