summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/debug35
1 files changed, 35 insertions, 0 deletions
diff --git a/scripts/debug b/scripts/debug
new file mode 100755
index 0000000..bc02543
--- /dev/null
+++ b/scripts/debug
@@ -0,0 +1,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);
+ }
+}