diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2020-12-20 12:29:24 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2020-12-20 12:29:24 +0100 |
| commit | 9055bcf4ee69f1f4ae0fcdf603f423933d023472 (patch) | |
| tree | d7f4354c78fae7ad75a6d07a49a792791a6420d6 | |
| parent | 6d07c5c1a9889ef92d10fd1fa3982cbe0fe56219 (diff) | |
such eurocity, many special case
| -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 043d49d..55f980c 100755 --- a/bin/db-wagenreihung-to-json +++ b/bin/db-wagenreihung-to-json @@ -368,7 +368,7 @@ for my $line (@lines) { if ( $number and $line - =~ m{ ^ \d* \s{1,10} (?<type> ( D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) | 40[1-9]([.][0-9])? ) \s* (?<number> \d+ )? (?: $ | \s{3} (?<rest> .* ) $ ) }x + =~ m{ ^ \d* \s{1,10} (?<type> ( D? (WL)? (A|AB|B|W) R? D? [acdehimpvw] \S* ) | 40[1-9]([.][0-9])? ) \s* (?<number> \d+ )? (?: $ | \s{3} (?<rest> .* ) $ ) }x ) { $state = "wagonorder"; |