Regexp matcht nur einmal bei 2 scheinbar identischen Fällen

[Struppi]

$attrvalue ist, wie an den Debugausgaben weiter unten zu sehen, korrekt abgefüllt, genauso $regexp. Trotzdem matcht beim zweiten File der Regexp nicht. Er scheitert an der 5. Bedingung.

print "Content: " . $attrvalue . " Regexp: " . $regexp .  "\n";
print "Vgl1: " . (defined $regexp)
      . " Vgl2: " . ($attribute_config->{type})
      . " Vgl3: " . ($attribute_config->{type} ne 'tag')
      . " Vgl4: " . ($attribute_config->{type} ne 'cont')
      . " Vgl5: " . ($attrvalue =~ /$regexp/) . "\n";

File 1:
Content: DC.Date Regexp: DC.Date$
Vgl1: 1 Vgl2: content Vgl3: 1 Vgl4: 1 Vgl5: 1

File 2:
Content: DC.Date Regexp: DC.Date$
Vgl1: 1 Vgl2: content Vgl3: 1 Vgl4: 1 Vgl5:

Sieht jemand etwas, das ich übersehen habe?

Das läßt sich natürlich schwer sagen, da man so keinen Testcase hat, sondern zwei absolut identische Skripte.

Vielleicht solltest du die Ausgabe doch noch auf merkwürdige Zeichen checken:

print "Content: *$attrvalue* Regexp: *$regexp*\n";

Struppi.