John Cichy wrote:
>
> Thank you very much, you confirmed that I was at least on the right track
> with what I was doing. The numbers are still not coming out correctly (at
> least not what I was expecting). This file seems to be geared towards a
> sun system, could this be effecting my results, would using binmode(FILE)
> help if it was?
See if this gives you the correct results:
$/ = \4;
my $file = 'goes.nav';
open FILE, $file or die "Cannot open $file: $!";
binmode FILE;
my ( $ysize, $xsize ) = unpack 'ss', reverse scalar <FILE>;
print " width=$xsize height=$ysize\n";
my ( @lat, @lon );
for my $yyyy ( 1 .. $ysize ) {
for my $xxxx ( 1 .. $xsize ) {
( $lon[$xxxx][$yyyy], $lat[$xxxx][$yyyy] ) =
map $_ *= 0.01, unpack 'ss', reverse scalar <FILE>;
}
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
