Opened by Froschpopo at 2007-09-25 23:57
User since
2003-08-15
2653 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
2653 Artikel
BenutzerIn
habs getestet:
Fazit: Funktioniert leider nur mit einem Parameter.
Wenn ich [BILD=martin.gif BREITE=300] angebe, erkennt er es nicht mehr.
Ansonsten scheint mir das ganze aber ein guter Anfang zu sein!
PS: wie du siehst, habe ich : durch = ersetzt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
my $string = "Das ist Martin: [BILD=martin.gif]";
my @values = $string =~ m!\[(([\w]+)\s*=\s*([\w\d.]+))+\]!g;
&parse(@values) if scalar @values;
sub parse {
my @args = @_;
print "Parameter:\n";
print $_."\n" for @args;
}
Fazit: Funktioniert leider nur mit einem Parameter.
Wenn ich [BILD=martin.gif BREITE=300] angebe, erkennt er es nicht mehr.
Ansonsten scheint mir das ganze aber ein guter Anfang zu sein!
PS: wie du siehst, habe ich : durch = ersetzt.