% my $stats = globalstats();
dbdb
Diese Seite sammelt Ankunfts- und Abfahrtsdaten einiger deutschen Bahnhöfe und
berechnet daraus Statistiken zu Pünktlichkeit, Verspätungsmeldungen und
ähnlichem. Das ist ein reines Freizeitprojekt (und aktuell ziemlich unfertig),
für die Korrektheit und Vollständigkeit gibt es selbstverständlich keine
Garantie. Vernünftiges Layout und Design kommt irgendwann™ mal.
Bitte beachten
Die Deutsche Bahn ist über eine solche Statistiksammlung möglicherweise
nicht ganz glücklich, daher bleibt diese Seite nichtöffentlich.
Einzelne Graphen / Statistiken dürfen gerne (ohne Quellenangabe)
weitergegeben werden. Zugangsdaten (soweit vorhanden) bitte nur mit
Verstand weitergeben, im Zweifelsfall werden sie irgendwann geändert.
Datengrundlage
Alle 10 Minuten werden folgende Bahnhöfe abgefragt:
% for my $station (@{$stats->{stationlist}}) {
- <%= $station %>
% }
Die Liste kann noch erweitert werden, mehr als 10 Bahnhöfe sollten es aber
nicht werden.
In der Datenbank sind <%= $stats->{departures} %> Fahrten
an <%= $stats->{days} %> Tagen,
davon
<%= $stats->{realtime} %>
(<%= sprintf('%.1f%%', $stats->{realtime_rate} * 100) %>) mit Echtzeitdaten.
Es gab
<%= $stats->{delayed} %> (<%= sprintf('%.1f%%', $stats->{delayed_rate} * 100) %>)
Züge mit mehr als 5 Minuten Verspätung und
<%= $stats->{canceled} %> (<%= sprintf('%.1f%%', $stats->{canceled_rate} * 100) %>)
Zugausfälle. Pünktlich auf die Minute waren
<%= $stats->{ontime} %> (<%= sprintf('%.1f%%', $stats->{ontime_rate} * 100) %>)
Abfahrten.
Insgesamt wurden
<%= sprintf('%d', $stats->{delay_sum} / 60) %> Stunden an Verspätungen eingefahren,
dabei ist ein Zug durchschnittlich
<%= sprintf('%.2f', $stats->{delay_avg}) %> Minuten zu spät.
Bargraph:
%= include 'barform';
Top-Liste:
%= include 'topform';
Einzelne Züge:
%= include 'individualform';