![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
$foo =~ s/(\d\d)\.(\d)/func(\@vars)/ge; # enthält dann $1 und $2
perl -e '$foo = 12345; $foo =~ s/(\d)/func(@+)/ge; sub func { print $_,"\n" for @_ }'
1 2 3 4 5 6
perl -e '$foo = 12345; $foo =~ s/(\d)/func(@+)/ge; sub func { print "@_\n" }' 1 1 2 2 3 3 4 4 5 5
perl -e '$foo = 12345; $foo =~ s/(\d\d)/func(@+[0])/ge; sub func { print "@_\n" }'
moritz+2008-04-16 10:07:59--Lies dir mal perlvar durch, da gibt es bei der Beschreibung von @- ein Beispiel, das verdeutlichen sollte, wie das funktioniert.
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |