summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/acronyms.pl18
-rwxr-xr-xscripts/acronyms.sh2
2 files changed, 10 insertions, 10 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl
index b81184a..9d55b3f 100755
--- a/scripts/acronyms.pl
+++ b/scripts/acronyms.pl
@@ -13,7 +13,7 @@ my $re_line = qr{
}x;
say <<'EOF';
-package Travel::Status::DE::IRIS::Acronyms;
+package Travel::Status::DE::IRIS::Stations;
use strict;
use warnings;
@@ -24,38 +24,38 @@ use List::MoreUtils qw(firstval);
our $VERSION = '0.00';
-my @acronyms = (
+my @stations = (
EOF
while (my $line = <STDIN>) {
chomp $line;
if ($line =~ $re_line) {
- my ($acronym, $name) = @+{qw{acronym name}};
+ my ($station, $name) = @+{qw{acronym name}};
$name =~ s{'}{\\'}g;
- printf("\t['%s','%s'],\n", $acronym, $name);
+ printf("\t['%s','%s'],\n", $station, $name);
}
}
say <<'EOF';
);
-sub get_acronyms {
- return @acronyms;
+sub get_stations {
+ return @stations;
}
-sub get_acronym_by_name {
+sub get_station_by_name {
my ( $name ) = @_;
my $nname = lc($name);
- my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+ my $actual_match = firstval { $nname eq lc($_->[1]) } @stations;
if ($actual_match) {
return ($actual_match);
}
- return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+ return ( grep { $_->[1] =~ m{$name}i } @stations );
}
1;
diff --git a/scripts/acronyms.sh b/scripts/acronyms.sh
index a6bd3ca..ef52521 100755
--- a/scripts/acronyms.sh
+++ b/scripts/acronyms.sh
@@ -2,4 +2,4 @@
curl -s http://www.db-netz.de/file/2361656/data/betriebsstellen.pdf \
| pdftotext -raw - - | perl scripts/acronyms.pl \
-> lib/Travel/Status/DE/IRIS/Acronyms.pm
+> lib/Travel/Status/DE/IRIS/Stations.pm