Added otucode listings for codepoint_open command
This commit is contained in:
parent
f056199ec1
commit
3e87326265
1 changed files with 18 additions and 7 deletions
|
@ -12,27 +12,37 @@ has usage => sub { shift->extract_usage };
|
|||
sub run {
|
||||
my ( $self, @args ) = @_;
|
||||
|
||||
getopt \@args,
|
||||
'o|outcodes=s' => \my @outcodes;
|
||||
'q|quiet' => \my $quiet_mode;
|
||||
|
||||
my $cpo_dir = $self->app->home->child('etc')->child('code-point-open');
|
||||
my $zip_file = $cpo_dir->child('codepo_gb.zip')->realpath->to_string;
|
||||
my $output_dir = $cpo_dir->child('codepo_gb')->realpath->to_string;
|
||||
|
||||
unless ( -d $output_dir ) {
|
||||
print "Unzipping code-point-open data\n";
|
||||
print "Unzipping code-point-open data\n" unless $quiet_mode;
|
||||
system( 'unzip', '-q', $zip_file, '-d', $output_dir );
|
||||
}
|
||||
|
||||
my $cpo = Geo::UK::Postcode::CodePointOpen->new( path => $output_dir );
|
||||
|
||||
use Devel::Dwarn;
|
||||
my $i = 0;
|
||||
Dwarn \@outcodes;
|
||||
|
||||
print 'Importing data for ' . $#outcodes ? join( ' ', @outcodes ) : 'all' . 'outcodes\n'
|
||||
unless $quiet_mode;
|
||||
my $i = 0;
|
||||
my $iter = $cpo->read_iterator(
|
||||
outcodes => \@outcodes,
|
||||
include_lat_long => 1,
|
||||
split_postcode => 1,
|
||||
);
|
||||
while ( my $pc = $iter->() ) {
|
||||
Dwarn $pc;
|
||||
last if $i++ > 10;
|
||||
}
|
||||
while ( my $pc = $iter->() ) {
|
||||
$i++;
|
||||
}
|
||||
|
||||
Dwarn $i;
|
||||
}
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
@ -41,7 +51,8 @@ while ( my $pc = $iter->() ) {
|
|||
|
||||
Options:
|
||||
|
||||
none, for now...
|
||||
-o|--outcodes <outcode> : limit to specified outcodes (can be defined
|
||||
multiple times)
|
||||
|
||||
=cut
|
||||
|
||||
|
|
Reference in a new issue