Commit 16676684 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

hafas-m: UTF-8 support for input (especially for the ÖBB service...)

parent f025a2f1

bin/hafas-m

+5 −1
Original line number Diff line number Diff line
@@ -5,6 +5,7 @@ use 5.010; 


our $VERSION = '1.05';



use Encode qw(decode);

use Getopt::Long qw(:config no_ignore_case);

use List::MoreUtils qw(uniq);

use List::Util qw(first max);
@@ -22,6 +23,9 @@ my ( @excluded_mots, @exclusive_mots ); 
my @output;



binmode( STDOUT, ':encoding(utf-8)' );

for my $arg (@ARGV) {

	$arg = decode( 'UTF-8', $arg );

}



GetOptions(

	'a|arrivals'    => \$arrivals,