1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.018;
binmode( STDOUT, ':encoding(utf-8)' );
use Data::Dumper;
use Travel::Status::DE::DeutscheBahn;
use Travel::Status::DE::IRIS;
my $ris = Travel::Status::DE::DeutscheBahn->new(
station => $ARGV[0],
mode => 'dep',
);
my $iris = Travel::Status::DE::IRIS->new(
station => $ARGV[1],
);
my @res_ris = $ris->results;
my @res_iris = $iris->results;
for my $d (@res_iris) {
printf("\n\n %5s %10s %4s %20s (%s)\n", $d->time, $d->train, $d->platform, $d->route_end, join(q{ }, $d->route_interesting));
my @matching = grep { $_->time . $_->train eq $d->time . $d->train } @res_ris;
for my $risd (@matching) {
printf(" -> %5s %10s %4s %20s (%s)\n", $risd->time, $risd->train, $risd->platform, $risd->route_end, join(q{ }, $risd->route_interesting));
printf(" -> %s\n", $risd->info_raw);
}
if ($d->realtime_xml) {
print $d->realtime_xml->toString(1);
}
}
|
