diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/acronyms.pl | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 43634d3..d7b890f 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -45,15 +45,21 @@ sub get_stations { return @stations; } -sub get_station_by_name { +sub get_station { my ( $name ) = @_; - my $ds100_match = firstval { $nname eq $_->[0] } @stations; + my $ds100_match = firstval { $name eq $_->[0] } @stations; if ($ds100_match) { return ($ds100_match); } + return get_station_by_name($name); +} + +sub get_station_by_name { + my ( $name ) = @_; + my $nname = lc($name); my $actual_match = firstval { $nname eq lc($_->[1]) } @stations; @@ -116,6 +122,16 @@ B<Note:> Station codes may contain whitespace. Returns a list of [station code, station name] listrefs lexically sorted by station name. +=item Travel::Status::DE::IRIS::get_station(I<$in>) + +Returns a list of [station code, station name] listrefs matching I<$in>. + +If a I<$in> is a valid station code, only one element ([I<$in>, related name]) +is returned. Otherwise, it is passed to get_station_by_name(I<$in>) (see +below). + +Note that station codes matching is case sensitive and must be exact. + =item Travel::Status::DE::IRIS::get_station_by_name(I<$name>) Returns a list of [station code, station name] listrefs where the station |