geekuni Topic 7 q10

search_airports2

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';
use Getopt::Long;
use Text::CSV qw(csv);



####
#FILL ME IN!!

sub parse_airports {
    my $filename = shift;

    my $airports = csv(
        in => $filename,
        headers => 'auto');
    
    return $airports;
}
my $filename = '/home/student/perl-basic/topic-07/iata_airports.csv';
my $number = 1;
my $matching;
my $latitude;
my $longitude;

GetOptions (
    'filename:s'  => \$filename,
    'number:i'    => \$number,
    'matching:s'  => \$matching,
    'latitude:f'  =>  \$latitude,
    'longitude:f'  =>  \$longitude,
    ) or die "Invalid options passed $0\n";
####

my $rah_airports = parse_airports($filename);
my $rah_airports_found = [];

if ($matching) {
  say "Up to $number airports matching $matching in $filename:";
}
elsif ($latitude && $longitude) {
  say "Up to $number airports near [$latitude, $longitude] in $filename:"
}
else {
  say "Must have at least --matching, or --latitude and --longitude as arguments";
}