% for my $wagongroup (@{$wagongroups // []}) { Wagenverbund <%= $wagongroup->{name} %> von <%= $wagongroup->{from} %> nach <%= $wagongroup->{to} %> als <%= $journey->{type} %> <%= $wagongroup->{no} %>
% for my $wagon (@{$wagongroup->{wagons}}) { % if (length($wagon->{id}) == 12) { <%= substr($wagon->{id}, 0, 2) %><%= substr($wagon->{id}, 2, 2) %><%= substr($wagon->{id}, 4, 1) %><%= substr($wagon->{id}, 5, 3) %><%= substr($wagon->{id}, 8, 3) %><%= substr($wagon->{id}, 11) %> % } % elsif ($wagon->{id}) { „<%= $wagon->{id} %>“ % } %= $wagon->{type} % if ($wagon->{number}) { – Wagen <%= $wagon->{number} %> % }
% } % }