Mark Overmeer > Geo-Format-Landsat-0.03 > Geo::Format::Landsat::MTL

Download:
Geo-Format-Landsat-0.03.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.03   Source  

NAME ^

Geo::Format::Landsat::MTL - read landsat meta data from MTL file

INHERITANCE ^

 Geo::Format::Landsat::MTL
   is a Exporter

SYNOPSIS ^

 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};

DESCRIPTION ^

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

FUNCTIONS ^

landsat_meta_from_filename(FILENAME)

Returns information from the filename, like the PRODUCT_METADATA structured from the MTL record, but without opening the file.

landsat_mtl_from_file(FILE)

Read one Vgroup record from the FILE, specified by name or filehandle.

Returned is a pair: the name of the record (for instance, L1_METADATA_FILE) and the destructed content. Each nested group is represented by a nested HASH.

The HASHes contain keys in capitals, which are exactly the fields as found in the meta-data file. Additionally, a number of lower-cased keys are added (the lower cased versions of some upper-cased names) with smart processed information.

SEE ALSO ^

This module is part of Geo-Format-Landsat distribution version 0.03, built on January 29, 2009. Website: http://perl.overmeer.net/geo/ All modules in this suite: "Geo::Point", "Geo::Proj4", "Geo::WKT", "Math::Polygon", "Geo::GML", "Geo::ISO19139", "Geo::EOP", "Geo::Format::Envisat", and "Geo::Format::Landsat".

Please post questions or ideas to the mailinglist at http://geo-perl@list.hut.fi

LICENSE ^

Copyrights 2009 by Mark Overmeer. For other contributors see ChangeLog.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html

syntax highlighting: