Opened by perl at 2011-02-13 02:58
User since
2011-02-13
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-02-13
2 Artikel
BenutzerIn
ich habs gelöst
liefert
((\$re)+)
und dann mit einer foreach schleife durch $1.
Ist zwar nicht optimal... aber ist eh nur ein Script was lokal ausgeführt wird.
Danke für die Hinweise
Schubi
Code: (dl
)
1
2
3
4
5
6
7
$s="\\Befehl{1}{2}{3}";
print "Test mit ((\$re)+)\n";
if ($s =~ /\\Befehl(($re)+)/g){
foreach $expr (1..$#-) {
print "\targument $expr = $$expr\n";
};
};liefert
QuoteTest mit (($re)+)
argument 1 = {1}{2}{3}
argument 2 = {3}
argument 3 = {3}
argument 4 = 3
((\$re)+)
und dann mit einer foreach schleife durch $1.
Ist zwar nicht optimal... aber ist eh nur ein Script was lokal ausgeführt wird.
Danke für die Hinweise
Schubi