Using 'use strict'
Generally a good idea
Data representation change
|
RPT |
symbolic references |
use 'strict' |
|
e010110 |
$e010110 |
$e[1]{110} |
Data initialization section (using strict)
while (<>) {
s/\s*$//;
push @elp, $_;
m/^99/ or next;
# Convert the expanded LP-list to elements known in the format(s)
foreach my $lp (@elp) {
my ($cat, $type, $data) = split m/\|/, $lp, 3;
$e[$cat]{$type} = $data;
}
# format this entity
write;
@e = ();
}
Data formatting section
format TOP =
Gemeente @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Blad: @>>>>>>
$s_gem, $%
Leerlingen Datum: @<<<<<<<<< @<<<<
$D_sys, $T_sys
===============================================================================
Achternaam Voornaam + initialen Geb dat Gesl
Adres Postcode + Plaats
SrtOnd School Klas
-------------------------------------------------------------------------------
.
format A01 =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>
$e[1]{241}, $e[1]{214}, "$e[1]{311} $e[1]{411}"
$line1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$e[1]{1100}, $e[1]{1025}
~ @<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<
$e[1]{2021},$e[1]{2012}, $e[1]{2040}
.