diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2020-12-20 16:33:34 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2020-12-20 16:33:34 +0100 |
| commit | 500ac4b613ff8c75c3da695368767509e0c8c1f9 (patch) | |
| tree | 43c4ed21ba744c6c98b63b342bd2ce2280da6e15 /bin/db-wagenreihung-to-json | |
| parent | ef277d778f64048673c0dd6cffe8aab92a9731ff (diff) | |
add LNF trains (empty sleeper cars?)
Diffstat (limited to 'bin/db-wagenreihung-to-json')
| -rwxr-xr-x | bin/db-wagenreihung-to-json | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/db-wagenreihung-to-json b/bin/db-wagenreihung-to-json index 01ebe2d..4d2ca44 100755 --- a/bin/db-wagenreihung-to-json +++ b/bin/db-wagenreihung-to-json @@ -268,16 +268,17 @@ for my $line (@lines) { $map{$number}{type} = $type; } } - elsif ( - $line =~ m{ ^ (?<type> LPF T? (-[A-Z])? ) (?<number> [ 0-9]{2,16}) }x ) + elsif ( $line + =~ m{ ^ (?<type> L[NP]F T? (-[A-Z])? ) (?<number> [ 0-9]{2,16}) }x ) { - # Not in passenger service ("Leehrfahrt"). Ignore it for now. + # Probably not in passenger service ("Leehrfahrt") # FWIW, LPF(T) can be further distinguished: # LPFT-A: ICE BR 401/402 # LPFT-B: ICE BR 412 # LPFT-T: ICE BR 411 / 415 / 605 # LPFT-W: ICE BR 403 / 406 + # LNF seems to be related to couchettes / sleeper cars. #$number = undef; #$state = ""; |