|
If all you want is the FITS header in "human readable" form, this bit of perl will do it.
#!/usr/bin/perl -w
open STDIN,$ARGV[0] or die();
while(sysread(STDIN,$line,80)>0) {
print STDERR "$line\n" if $line=~m/.{8}=\s*/o;
last if $line=~m/^END/o;
}
close STDIN;
|