[nr-pm] regex
DJ Adams
dj.adams at pobox.com
Die Mar 19 11:52:19 CST 2002
Hallo
an statt regexen, wie waere es mit:
$entity_body =
"Kennung : STRING(1);
Langtext : STRING;
UNIQUE
Kennung_eindeutig : Kennung;
DERIVE
Derive_1 : Derive_y;
INVERSE
Inverse_1 : Inverse_2;";
@parts = split(/(DERIVE|INVERSE|UNIQUE|WHERE)\n/,$entity_body);
$explicit_attr = shift @parts;
while (scalar @parts) {
($name, $clause) = (shift @parts, shift @parts);
$name = lc $name;
eval "\$${name}_clause = \$clause";
}
print "explicit_attr: $explicit_attr\n";
print "derive_clause: $derive_clause\n";
print "unique_clause: $unique_clause\n";
print "inverse_clause: $inverse_clause\n";
dj
___________________________
Abmelden:
Mail an majordomo at hfb.pm.org mit dem Text:
unsubscribe niederrhein-pm