From 85fb4e7f3ea9986a65d768be8aa0fb9bd6dd67fe Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 19 Dec 2020 18:53:00 +0100 Subject: wagon order: add powercars --- bin/db-wagenreihung-to-json | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/db-wagenreihung-to-json b/bin/db-wagenreihung-to-json index 34e6226..98107f5 100755 --- a/bin/db-wagenreihung-to-json +++ b/bin/db-wagenreihung-to-json @@ -345,7 +345,7 @@ for my $line (@lines) { if ( $number and $line - =~ m{ ^ \d* \s{1,10} (? D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) \s* (? \d+ )? (?: $ | \s{3} ) }x + =~ m{ ^ \d* \s{1,10} (? ( D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) | 40[1-9]([.][0-9])? ) \s* (? \d+ )? (?: $ | \s{3} ) }x ) { $state = "wagonorder"; @@ -375,6 +375,9 @@ for my $train_number ( keys %map ) { my %type_by_wagon_number; for my $wagon ( @{ $wagon_map{$train_number} // [] } ) { my ( $wagon_type, $wagon_number ) = @{$wagon}; + if ( $wagon_type =~ m{40[1-9]} ) { + next; + } if ( not $wagon_number ) { $wagon_numbers_ok = 0; } @@ -386,6 +389,11 @@ for my $train_number ( keys %map ) { if ($wagon_numbers_ok) { for my $wagon ( @{ $wagon_map{$train_number} // [] } ) { my ( $wagon_type, $wagon_number ) = @{$wagon}; + if ( $wagon_type =~ m{40[1-9]} ) { + next; + } + + #push(@{$map{$train_number}{wagon_list}}, $wagon); $map{$train_number}{wagon}{ $wagon->[1] } = $wagon_type; if ( $bincount{$wagon_number} > 1 ) { if ( $type_by_wagon_number{$wagon_number}[0] ne -- cgit v1.2.3