[nr-pm] regex

[DJ Adams]

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