RegEx: optionale Matches an Subroutine weitergeben - #99990 (Allgemeines zu Perl)

Froschpopo

2007-09-25 23:57

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Folgender String:

Code: (dl )

[BILD:test.gif PARAMETER1:wert PARAMETER2:wert]

Nun möchte ich daraus folgendes machen:
<img src="test.gif" PARAMETER1="wert" PARAMETER2="wert">
usw.

Dazu habe ich folgenden RegEx:

Code: (dl )

$string =~ s/\[BILD:(.+)\]/bild($1)/ge

Nun möchte ich es aber so haben, dass alle Parameter auch an bild() übergeben werden und zwar unabhängig von der Anzahl der Parameter.
Am liebsten als Hashreferenz:

Code: (dl )

$string =~ s/\[BILD:(.+)\]/bild(\%parameter)/ge;

Hat jemand von euch eine Idee, wie ich aus den Wertepaaren (z.B. BILD:wert) ein anonymes Hash erzeuge und an bild() übergeben kann?

Sodass ich dann später folgendes machen kann:

Code: (dl )

sub bild {
   my $hashref = shift;
   print "Bild: $hashref->{BILD}\n";
}