0 Gazetteer for Scotland: Settlements SHOW OS MAP, ]]> -3.17423 55.95277 2000 75 0 -3.17423,55.95277,0 SHOW OS MAP, ]]> -3.17075 55.95705 2000 75 0 -3.17075,55.95705,0 SHOW OS MAP, ]]> -3.1723 55.95524 2000 75 0 -3.1723,55.95524,0 ##

##

#!/usr/bin/perl

# Script to illustrate how to parse a simple XML file
# and dump its contents in a Perl hash record.

use XML::Simple;
use XML::Parser;
use LWP::Simple;
use Data::Dumper;

my $url= "http://xweb.geos.ed.ac.uk/~s0341330/module3/test.xml";
my $xml = get ($url) or die "I can't get the feed you want";
my $parser = XML::Simple->new( );
my $Document = $parser->XMLin("$xml");

foreach my $Placemark (@{$Document->{Placemark}}) 
	{
	my $var = $Placemark->{name} . "\n";
	print "$var";
	}