Thread Suche regex für "insert separation character" (0 answers)
Opened by Kuerbis at 2016-02-04 15:27

Kuerbis
 2016-02-04 15:27
#183728 #183728
User since
2011-03-20
943 articles
BenutzerIn
[default_avatar]
Hallo, wie könnte ich diese Perl5 Regex in eine Perl6 Regex übersetzen?

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>;

View full thread Suche regex für "insert separation character"