Reader: 1
|< 1 2 >| | 14 entries, 2 pages |
m~REGULAERERAUSDRUCK~ig
my ($qr, $mod) = $re =~ m#^m~(.*)~(.*)$#;
re => qr~$re~$mod,
(?[Modifikator]:Muster)
re => qr~(?$mod:$re)~,
re => qr~(?$mod:$qr)~,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
sub create_aoh ($) {
# -----------------------------------------------------------------------------
# sub : c r e a t e _ a o h
# -----------------------------------------------------------------------------
# Autor : CD
# Aufgabe : WZ-Liste in AoH übernehmen
# Parameter : Name der Listendatei
# Rückgabewert : Eingelesenes AoH
# -----------------------------------------------------------------------------
# 0.0.1 - 12.03.2004 - CD - Erstellt
# -----------------------------------------------------------------------------
my $file = shift;
my @wz = ();
open (LST, $file) or die "Kann Datei '$file' nicht zum Lesen oeffnen: $!";
while (<LST>) {
next if m~^\s*$~; # Leerzeilen überspringen
my ($id, $code, $vor_re) = split /\t/;
unless (defined $vor_re) {
warn "Fehler in Listendatei Zeile $. '$_'";
next;
}
my $re = modify($vor_re);
my ($qr, $mod) = $re =~ m#^m~(.*)~(.*)$#;
push @wz, {
id => $id,
wzcode => $code,
re => qr~(?$mod:$qr)o~,
};
}
close LST or warn $!;
return @wz;
} # sub create_aoh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
sub wzcode ($$) {
# -----------------------------------------------------------------------------
# sub : wzcode
# -----------------------------------------------------------------------------
# Autor : CD
# Aufgabe : Vergabe des WZ-Codes
# Parameter : 1) Begriff
# 2) Referenz auf wz-AoH
# Rückgabewert : gefundene Zahl oder 00000
# -----------------------------------------------------------------------------
# 0.0.1 - 12.03.2004 - CD - Erstellt
# -----------------------------------------------------------------------------
my $begriff = shift;
my $refwz = shift;
my $ret = '00000';
for (@$refwz) {
if ($begriff =~ $_->{re}) {
$ret = $_->{wzcode};
last;
}
}
return $ret;
} # sub wzcode
|< 1 2 >| | 14 entries, 2 pages |