Wicked Cool Perl Scripts

#42 The Location Finder

When the mapping program was first written, you could get a map of any place in the United States. This was useful if you knew the coordinates, but you couldn't tell the system to give you a map of Lake Dixon by name. That's where the location finder comes in.

The Code

 1 use strict; 2 use warnings; 3 4 # 5 # This module contains the info needed to go 6 # to a named location 7 # 8 9 10 package goto_loc; 11 12 use Tk; 13 use Geo::Coordinates::UTM; 14 use HTTP::Lite; 15 use Tk::Photo; 16 use Tk::JPEG; 17 use Tk::LabEntry; 18 use Tk::BrowseEntry; 19 use Image::Magick; 20 21 use map; 22 23 require Exporter; 24 use vars qw/@ISA @EXPORT/; 25 26 @ISA = qw/Exporter/; 27 @EXPORT=qw/goto_loc/; 28 29 my $tk_goto_loc;# Goto location ...