From b295d78bcf305cf222c65fc2cad0c52ae3d42793 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 24 Nov 2014 13:17:07 +0100 Subject: update stations list, run perltidy on it --- scripts/acronyms.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'scripts/acronyms.pl') diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index ac4bd68..73cb817 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -45,6 +45,20 @@ sub get_stations { return @stations; } +sub normalize { + my ($val) = @_; + + $val =~ s{Ä}{Ae}g; + $val =~ s{Ö}{Oe}g; + $val =~ s{Ü}{Ue}g; + $val =~ s{ä}{ae}g; + $val =~ s{ö}{oe}g; + $val =~ s{ß}{sz}g; + $val =~ s{ü}{ue}g; + + return $val; +} + sub get_station { my ( $name ) = @_; @@ -67,6 +81,12 @@ sub get_station_by_name { return ($actual_match); } + $nname = normalize($nname); + $actual_match = firstval { $nname eq normalize(lc($_->[1])) } @stations; + if ($actual_match) { + return $actual_match; + } + return ( grep { $_->[1] =~ m{$name}i } @stations ); } -- cgit v1.2.3