Community  »  Perl: Allgemeines Forum

subroutine in s///	Seitenanfang
hallo! wie lässt sich $1 in einer subroutine verarbeiten? etwa so (das bsp. hinkt - ich weiss): $suchmuster = "die nummer #452568# lautete...." $suchmuster =~ s/\#(\d{2,})\#/sub($1)/g; sub{ .. .. return irgendwas } danke xander Datum: 18.05.2009-18:19
re: subroutine in s///	Seitenanfang
#!/usr/bin/perl $suchmuster = "die nummer #452568# lautete...."; print "Suchmuster vorher: [$suchmuster]\n"; $suchmuster =~ s/\#(\d{2,})\#/&machwas($1)/eg; print "Suchmuster nachher: [$suchmuster]\n"; sub machwas { my ($temp, @rest) = @_; $temp = join('', reverse(split(//,$temp))); return $temp; } Datum: 19.05.2009-13:35