Suche regex für "insert separation character" (Raku / Perl 6)

[thread]19975[/thread]

Suche regex für "insert separation character"

Tags: perl6 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

Kuerbis

2016-02-04 15:27

User since
2011-03-20
947 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 all threads created 2016-02-04 15:27.