diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2020-12-12 06:48:08 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2020-12-12 06:48:08 +0100 |
| commit | ab20cf7c89c2c4d6cd1729423a0a3b99b1374994 (patch) | |
| tree | b1c3c1225c4f7cbc127f8a6625b39e6b6f421caf /bin | |
| parent | 81518df3de1c46d5af9990ff3445fe3bb1267515 (diff) | |
add couchette and sleeping car support
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/db-wagenreihung-to-json | 2 |
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} ] ); |