Skip to Main Content
Wicked Cool Perl Scripts
book

Wicked Cool Perl Scripts

by Steve Oualline
February 2006
Intermediate to advanced content levelIntermediate to advanced
304 pages
6h 16m
English
No Starch Press
Content preview from Wicked Cool Perl Scripts

#41 Map Generator

With this program, the user can view and print topographical maps and aerial photographs of any place in the United States. Its job is to take the data from the mapping module and display it in a way you can use it.

The Code

   1 use strict;
   2 use warnings;
   3
   4 use Tk;
   5 use Geo::Coordinates::UTM;
   6 use HTTP::Lite;
   7 use Tk::Photo;
   8 use Tk::JPEG;
   9 use Tk::LabEntry;
  10 use Tk::BrowseEntry;
  11 use Image::Magick;
  12
  13 use map; 14 use goto_loc; 15 16 my $tk_mw; # Main window 17 my $tk_canvas; # Canvas on the main window 18 my $tk_nav; # Navigation window 19 20 my $goto_long = 0; # Where to go from the entry 21 my $goto_lat = 0; 22 23 # The buttons to display the scale 24 my @tk_scale_buttons; 25 26 ################################################ ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Perl Debugged

Perl Debugged

Peter Scott, Ed Wright
Perl & LWP

Perl & LWP

Sean M. Burke
Pro Perl

Pro Perl

Peter Wainwright

Publisher Resources

ISBN: 1593270623Catalog PageErrata