Suche Regex - #126240 (Allgemeines zu Perl)

topeg

2009-09-26 02:47

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Mit Inlinecode hast du mich auf eine Idee gebracht:

Code (perl): (dl )

$t='12345Y'x10;
$s='';
$t=~m!(?:(\d(?{$s.=$1}))\D*){13}!;
print "$s\n";

Edit: Falschen Modifikator entfernt
Last edited: 2009-09-26 02:54:45 +0200 (CEST)