my ($type, $data) = landsat_mtl_from_file $filename; # study the result. use Data::Dumper; warn Dumper $data; print $data->{METADATA_FILE_INFO}{ORIGIN}, "\n"; my $data = landsat_meta_from_filename $filename; print $data->{WRS_PATH};
Process the content of a MTL file, as specified by document
level1_dfcb_rev5_401.pdf
.
See also http://landsathandbook.gsfc.nasa.gov/handbook/handbook_toc.html