diff options
Diffstat (limited to 'lib/WWW/Efa.pm')
| -rw-r--r-- | lib/WWW/Efa.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index cdd8d62..b5fb724 100644 --- a/lib/WWW/Efa.pm +++ b/lib/WWW/Efa.pm @@ -10,7 +10,7 @@ WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service my $efa = WWW::Efa->new( from => ['Essen', 'HBf'], - to => ['Muelheim', 'HBf'], + to => ['Duisburg', 'HBf'], ); $efa->submit(); @@ -20,10 +20,11 @@ WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service for my $c (@{$con}) { printf( "%-5s ab %-30s %-20s %s\n%-5s an %-30s\n\n",, - @{$c}->{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, - @{$c}->{'arr_time', 'arr_stop'}, + @{$c}{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, + @{$c}{'arr_time', 'arr_stop'}, ); } + print "\n\n"; } =head1 DESCRIPTION |