Subst problemchen...

Title: Subst problemchen...

Hi,

habe ich zu lange kein Perl gehackt? Ich beiss mir seid heute morgen die Zähne an dieses Problemchen aus!

Aufgabe: es gibt eine Tabelle (Oracle - ist aber egal) mit eine Attributename (Primary Key), ein Pattern (perl regex) und ein Replacement String.

Ziel: die Texte in manche Attribute per Regex säubern. z.B. eine 'Groesse' soll statt '42' 'Groesse 42' sein, eine 'Laenge' nicht mehr '105CM' sondern 'Laenge 105 cm' usw...

Alles ziemlich einfach, aber ich stolper gerade an der Variable-Expansion.
z.B.:

$value       = '105CM';   # Kaputte Daten
$pattern     = qr'.*?(\d+).*';
$replacement = 'Length: ${1} cm';
$value =~ s/$pattern/$replacement/ge;
print "$value\n";

ich habe verschiedenes versucht, auch der evil eval aber ich krieg's einfach nicht hin das der $1 in $replacement als erste Match-Group ersetzt wird.

Hat jemand vielleicht eine Idee?

Vielen Dank,

Steve
--
Stephen Riehm
Tel:     089 96060-210
email: s.riehm@hse24.de
eCommerce
HSE24

Der Inhalt dieser E-Mail oder eventueller Anhänge ist ausschliesslich für den bezeichneten Adressaten bestimmt. Wenn Sie nicht der vorgesehene Adressat dieser E-Mail oder dessen Vertreter sein sollten, so beachten Sie bitte, dass jede Form der Kenntnisnahme, Veröffentlichung, Vervielfältigung oder Weitergabe des Inhalts dieser E-Mail unzulässig ist. Wir bitten Sie, sich in diesem Fall mit dem Absender der E-Mail in Verbindung zu setzen.

The information contained in this email is intended solely for the addressee. If you are not the intended recipient, any form
of disclosure, reproduction, distribution or any action taken or refrained from in reliance on it, is prohibited and may
be unlawful. Please notify the sender immediately.