diff options
| -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 = ""; |