summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2020-12-12 06:48:08 +0100
committerDaniel Friesel <derf@finalrewind.org>2020-12-12 06:48:08 +0100
commitab20cf7c89c2c4d6cd1729423a0a3b99b1374994 (patch)
treeb1c3c1225c4f7cbc127f8a6625b39e6b6f421caf
parent81518df3de1c46d5af9990ff3445fe3bb1267515 (diff)
add couchette and sleeping car support
-rwxr-xr-xbin/db-wagenreihung-to-json2
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/db-wagenreihung-to-json b/bin/db-wagenreihung-to-json
index 09027ab..893132e 100755
--- a/bin/db-wagenreihung-to-json
+++ b/bin/db-wagenreihung-to-json
@@ -177,7 +177,7 @@ for my $line (@lines) {
if ( $number
and $line
- =~ m{ ^ \d* \s{1,10} (?<type> D? (A|AB|B|W) R? D? [aeimpvw] \S* ) \s* (?<number> \d+ )? (?: $ | \s{6} ) }x
+ =~ m{ ^ \d* \s{1,10} (?<type> D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) \s* (?<number> \d+ )? (?: $ | \s{6} ) }x
)
{
push( @{ $wagon_map{$number} }, [ $+{type}, $+{number} ] );