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

Froschpopo

2007-09-26 22:18

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

Code: (dl )

#!/usr/bin/perl

use strict;

my $string = "Das ist Martin: [BILD=martin.gif NAME=test NAME2=hallo]";

my @values = $string =~ m!\[(?:(\w+?)\s*=\s*(.+?)\s*)+\]!gs;

&parse(@values) if scalar @values;

sub parse {
	my %params = @_;
	print $_ . " = ".$params{$_}."\n" for keys %params;
}

Jetzt zeigt er immer den letzten Parameter an, also:

Code: (dl )

NAME2 = hallo