Re: How do I remove leading zeros?

[ToddAndMargo]

On 06/13/2018 11:03 AM, ToddAndMargo wrote:

On 06/13/2018 11:00 AM, Larry Wall wrote:

I'd probably just write something like:

     s:g { « <( 0+ )> \d+ » } = '';

The first <( and the last » are not strictly necessary, but add clarity, or at least balance.  But in golf mode you could get away with something like:

     sg/«0+)>\d//;

Larry

Awesome!  Thank you!

$ p6 'my $x = "01.0.103.06.10"; $x ~~ s:g/«0+)>\d//; say "$x"'
1.0.103.6.10

What did you just do?

Sweet!

   $ p6 'my $x = "01.000.103.006.10"; $x ~~ s:g/«0+)>\d//; say "$x"'
   1.0.103.6.10