Opened by Kuerbis at 2016-02-04 15:27
User since
2011-03-20
938 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-03-20
938 Artikel
BenutzerIn
Hallo, wie könnte ich diese Perl5 Regex in eine Perl6 Regex übersetzen?
Mein versuch (ohne \G) hat nicht funktioniert:
Habe für mich zwar einen Workaround gefunden, aber vielleicht wäre die Regex kürzer oder schneller:
Code (perl): (dl
)
$num =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1$sep/g;
Mein versuch (ohne \G) hat nicht funktioniert:
Code (perl): (dl
)
$num ~~ s:g/(^<[-+]>?\d+?<?before<[\d**3]+><!before\d>>|\d**3<?before\d>)/$1$sep/;
Habe für mich zwar einen Workaround gefunden, aber vielleicht wäre die Regex kürzer oder schneller:
Code (perl): (dl
)
1 2
$num ~~ / ^ $<vorzeichen>=[ <[+-]>? ] $<ganze>=[ \d+ ] $<rest>=[ [ \D \d+ ] ? ] $ / or return $num; return $<vorzeichen> ~ $<ganze>.flip.comb( / . ** 1..3 / ).join( $sep ).flip ~ $<rest>;