Uk postcode validation and location
use Geo::Postcode;
my $postcode = Geo::Postcode->new('SW1 1AA');
return unless $postcode->valid;
my ($n, $e) = ($postcode->gridn, $postcode->gride);
# is the same as
my ($n, $e) = $postcode->coordinates;
# and alternative to
my @location = ($postcode->lat, $postcode->long);
# or the impatient can skip the construction step:
my ($n, $e) = Geo::Postcode->coordinates('SW1 1AA');
my $clean_postcode = Geo::Postcode->valid( $postcode );
my ($unit, $sector, $district, $area) = Geo::Postcode->analyse('SW1 1AA');
Geo::Postcode will accept full or partial \s-1UK\s0 postcodes, validate them against the official spec, separate them into their significant parts, translate them into map references or co-ordinates and calculate distances between them.
It does not check whether the supplied postcode exists: only whether it is well-formed according to British Standard 7666, which you can find here:
http://www.govtalk.gov.uk/gdsc/html/frames/PostCode.htm
Geo::Postcode will also work with partial codes, ie areas, districts and sectors. They won't validate, but you can test them for legitimacy with a call to \*(C`valid_fragment\*(C', and you can still turn them into grid references.
To work with \s-1US\s0 zipcodes, you need Geo::Postalcode instead.
Any postcode, whether fully or partly specified, can be turned into a grid reference. The Post Office calls it a centroid, and it marks the approximate centre of the area covered by the code.
Unfortunately, and inexplicably, this information is not public domain: unless you're prepared to work at a very crude level, you have to buy location data either from the Post Office or a data shop.
This module does not come with any postcode data of its own, therefore, and so the coordinate and distance calculation facilities are unavailable unless you plug in your own database.
See the \s-1POD\s0 for Geo::Delivery::Location for how to override the standard data set something more comprehensive.
This is a mostly vanilla \s-1OOP\s0 module, but for quick and dirty work you can skip the object construction step and call a method directly with a postcode string. It will build the necessary object behind the scenes and return the result of the operation.
my @coordinates = Geo::Postcode->coordinates('LA23 3PA'); my $postcode = Geo::Postcode->valid($input->param('postcode'));
The object will not be available for any more requests, of course.
The main Geo::Postcode object is very simple blessed hashref. The postcode information is stored as a four-element listref in $self->{postcode}. Location information is retrieved by the separate Geo::Postcode::Location, which by default uses SQLite but can easily be overridden to use the database or other source of your choice. The location machinery is not loaded until it's needed, so you can validate and parse postcodes very cheaply.
Constructs and returns the very simple postcode object. All other processing and loading is deferred.
You can also pass in a couple of parameters up front, as a hashref after the postcode:
my $postcode = Geo::Postcode->new('SW1 1AA', { location_class => 'My::Location::Data::Class', distance_units => 'miles', })
This list will probably grow.
Always returns the (uppercased) postcode string with which the object was constructed. Cannot be set after construction.
Breaks the postcode into its significant parts, eg:
EC1R 8DH --> | EC | 1R | 8 | DH |
then stores the parts for later reference and returns them as a listref. Most other methods in this class call \*(C`fragments()\*(C' first to get their raw material.
The first call to a location-related method of Geo::Postcode will cause the location class - normally Geo::Postcode::Location - to be loaded along with its data file, and a location object to be associated with this postcode object. We then pass all location-related queries on to the location object.
The accuracy of the information returned by location methods depends on the resolution of the location data file: see the \s-1POD\s0 for Geo::Postcode::Location for how to supply your own dataset instead of using the crude set that comes with this module.
Returns - and if necessary, creates - the location object associated with this postcode object. This operation is avoided until explicitly requested, so that simple postcode-validation can be as economical as possible. The location object does all the work of looking up map reference data, calculating distances and translating into other forms.
Sets and/or returns the full name of the class that should be called to get a location object. Calling \*(C`location_class\*(C' after a location object has been constructed will cause that object to be destroyed, so that the next call to a location-dependent method constructs a new object of the newly-specified class.
Returns the name of the location class we'll use if no other is specified. The default default is Geo::Postcode::Location, but if you're subclassing you will probably want to replace that with one of your own.
Return the \s-1OS\s0 grid reference coordinates of the centre of this postcode.
Return the proper \s-1OS\s0 grid reference for this postcode, in classic \s-1AA123456\s0 style.
Return the latitude and longitude of the centre of this postcode.
These return information from other fields that may or may not be present in your dataset. The default set supplied with this module doesn't have these extra fields but a set derived from the \s-1PAF\s0 normally will.
Return the grid reference x, y coordinates of this postcode as two separate values. The grid reference we use here are completely numerical: the usual \s-1OS\s0 prefix is omitted and an absolute coordinate value returned unless you get a stringy version from \*(C`gridref()\*(C'.
Accepts a postcode object or string, and returns the distance from here to there.
As usual, you can call this method directly (ie without first constructing an object), or with any combination of postcode strings and objects:
my $distance = Geo::Postcode->distance_from('LA23 3PA', 'EC1Y 8PQ'); my $distance = Geo::Postcode->distance_from($postcode, 'EC1Y 8PQ'); my $distance = Geo::Postcode->distance_from('EC1Y 8PQ', $postcode);
Will do what you would expect, and the last two should be exactly the same. \*(C`distance_between\*(C' is provided as a synonym of \*(C`distance_from\*(C' to make that read more sensibly:
my $distance = Geo::Postcode->distance_between('LA23 3PA', 'EC1Y 8PQ');
In any of these cases you can supply an additional parameter dictating the units of distance: the options are currently 'miles', 'm' or 'km' (the default).
my $distance = Geo::Postcode->distance_between('LA23 3PA', 'EC1Y 8PQ', 'miles');
The same thing can be accomplished by supplying a 'distance_units' parameter at construction time or, if you don't mind acting global, by setting $Geo::Postcode::Location::units.
Accepts a list of postcode objects and/or strings, and returns a corresponding list of the bearings from here to there, as degrees clockwise from grid North.
Accepts a list of postcode objects and/or strings, and returns a corresponding list of rough directions from here to there. '\s-1NW\s0', '\s-1ESE\s0', that sort of thing.
print "That's " . $postcode1->distance_to($postcode2) . " km " . $postcode1->friendly_bearing_to($postcode2) . " of here.";
Postcodes are checked against \s-1BS7666\s0, which specifies the various kinds of sequences allowed and the characters which may appear in each position.
If the postcode is well-formed and complete, this method returns true (in the useful form of the postcode itself, properly formatted). Otherwise, returns false.
A looser check that doesn't mind incomplete postcodes. It will test that area, district or sector codes follow the rules for valid characters in that part of the postcode, and return true unless it finds anything that's not allowed.
These methods provide the various sector, area and district codes that can be derived from a full postcode, each of which identifies a larger area that encloses the postcode area.
Returns a list of all the codes present in this postcode, in descending order of specificity. So:
Geo::Postcode->analyse('EC1Y8PQ');
will return:
('EC1Y 8PQ', 'EC1Y 8', 'EC1Y', 'EC')
which is useful mostly for dealing with situations where you don't know what resolution will be available and need to try alternatives. We do this when location-finding, so as to be able to work with data of unpredictable or variable specificity (ie we are cheap and only buy very rough data sets, but people enter exact postcodes).
Returns the area code part of this postcode. This is the broadest area of all and is identified by the first one or two letters of the code: 'E' or '\s-1EC\s0' or '\s-1LA\s0' or whatever.
Returns the district code part of this postcode. This is also called the 'outward' part, by the post office: it consists of the first two or three characters and identifies the delivery office for this address. It will look like '\s-1LA23\s0' or '\s-1EC1Y\s0'.
Returns the sector code part of this postcode. This is getting more local: it includes the first part of the code and the first digit of the second part, and is apparent used by the delivery office to sort the package. It will look something like '\s-1EC1Y\s0 8' or 'E1 7', and note that the space *is* meaningful. 'E1 7' and 'E17' are not the same thing.
Returns the whole postcode, properly formatted (ie in caps and with a space in the right place, regardless of how it came in).
This is similar to what you get just by stringifying the postcode object, with the important difference that unit() will only work for a well-formed postcode:
print Geo::Postcode->unit('LA233PA'); # prints LA23 3PA print Geo::Postcode->new('LA233PA'); # prints LA23 3PA print Geo::Postcode->unit('LA23333'); # prints nothing print Geo::Postcode->new('LA23333'); # prints LA23
Whereas normal stringification - which calls \*(C`_as_string\*(C' will print all the valid parts of a postcode.
Returns a list of known valid but non-conformist postcodes. The only official one is 'G1R 0AA', the old girobank address, but you can override this method to extend the list.
The next majorish version of this module will support (but not require) the interface offered by Geo::Postalcode, so that one can be dropped into the place of the other. Some methods will not be relevant, but I'll try and keep as close a match as I can.
William Ross, [email protected]
Development of this library is kindly supported by Amnesty International \s-1UK\s0, who are pleased to see it distributed for public use but should not be held responsible for any shortcomings (or inadvertent copyright violations :).
Copyright 2004 William Ross, spanner ltd.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.