Add short options

use encoding 'utf8';

use 5.010;

use Encode;

use Getopt::Long;

use Getopt::Long qw/:config no_ignore_case/;

use WWW::Mechanize;

my $firsturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2?language=de&itdLPxx_transpCompany=vrr';

}

GetOptions(

	'arrive=s'  => \$time_arrive,

	'bike'      => \$with_bike,

	'date=s'    => \$date,

	'debug'     => \$debug,

	'a|arrive=s'     => \$time_arrive,

	'b|bike'         => \$with_bike,

	'd|date=s'       => \$date,

	'D|debug'        => \$debug,

	'depart=s'       => \$time_depart,

	'exclude=s' => \@exclude,

	'e|exclude=s'    => \@exclude,

	'from=s{2}'      => \@from,

	'from-type=s'    => \$from_type,

	'help'      => sub {exec('perldoc', '-F', $0)},

	'ignore-info=s{0,1}' => \$ignore_info,

	'max-change=i'  => \$maxinter,

	'h|help'         => sub {exec('perldoc', '-F', $0)},

	'I|ignore-info=s{0,1}' => \$ignore_info,

	'm|max-change=i' => \$maxinter,

	'post=s'         => \%post,

	'prefer=s'  => \$prefer,

	'proximity' => \$proximity,

	'include=s' => \$include,

	'time=s'    => \$time,

	'P|prefer=s'     => \$prefer,

	'p|proximity'    => \$proximity,

	'i|include=s'    => \$include,

	't|time=s'       => \$time,

	'to=s{2}'        => \@to,

	'to-type=s'      => \$to_type,

	'version'        => sub {print "efa version $version\n"; exit 0},

	'via=s{2}'       => \@via,

	'via-type=s'     => \$via_type,

	'walk-speed=s' => \$walk_speed,

	'w|walk-speed=s' => \$walk_speed,

);

@exclude = split(/,/, join(',', @exclude));

As an alternative to these options, it is possible to specify the I<stop>

of the to/from/via options as "addr:I<stop>" or "poi:I<stop>", respectively.

=item B<--time>|B<--depart> I<hh>:I<mm>

=item B<-t>|B<--time>|B<--depart> I<hh>:I<mm>

Journey start time

=item B<--arrive> I<hh>:I<mm>

=item B<-a>|B<--arrive> I<hh>:I<mm>

Journey end time (overrides --time/--depart)

=item B<--date> I<dd>.I<mm>.[I<yyyy>]

=item B<-d>|B<--date> I<dd>.I<mm>.[I<yyyy>]

Journey date

=item B<--bike>

=item B<-b>|B<--bike>

Choose connections where you can take a bike with you

=item B<--exclude> I<transports>

=item B<-e>|B<--exclude> I<transports>

Exclude I<transports> (comma separated list).

Possible transports: zug, s-bahn, u-bahn, stadtbahn, tram, stadtbus, regionalbus,

schnellbus, seilbahn, schiff, ast, sonstige

=item B<--max-change> I<number>

=item B<-m>|B<--max-change> I<number>

Print connections with at most I<number> interchanges

=item B<--prefer> I<type>

=item B<-P>|B<--prefer> I<type>

Prefer connections of I<type>:

=back

=item B<--proximity>

=item B<-p>|B<--proximity>

Take stops close to the stop/start into account and possibly use them instead

=item B<--include> I<type>

=item B<-i>|B<--include> I<type>

Include connections using trains of type I<type>, where I<type> may be:

=back

=item B<--walk-speed> I<speed>

=item B<-w>|B<--walk-speed> I<speed>

Set your walking speed to I<speed>.

Accepted values: normal (default), fast, slow

=item B<--ignore-info> [ I<regex> ]

=item B<-I>|B<--ignore-info> [ I<regex> ]

Ignore additional information matching I<regex> (default: /Fahrradmitnahme/).

If I<regex> is not supplied, removes the default regex (-E<gt> nothing will be ignored)

=item B<--debug>

=item B<-D>|B<--debug>

Display debug information (additional post requests sent to the site,

raw items received from the site)

Note that B<--post> will be overridden by the standard efa options, such as

B<--time>.

=item B<--version>

=item B<-v>|B<--version>

Print version information