develooper Front page | perl.perl6.users | Postings from June 2018

Re: How do I remove leading zeros?

Thread Previous | Thread Next
From:
ToddAndMargo
Date:
June 13, 2018 05:38
Subject:
Re: How do I remove leading zeros?
Message ID:
28e9dcbd-cd4f-34f4-f64a-30d381c56b15@zoho.com
On 06/12/2018 09:56 PM, ToddAndMargo wrote:
> Hi All,
> 
> I am trying to turn
> 
>      01.02.03
> 
> into
> 
>      1.2.3
> 
> What am I doing wrong, this time?
> 
> $ p6 'my $x="01.02.03"; $x ~~ s:global/"0"(\d)/ $0 /; say "$x"'
>   1 . 2 . 3
> 
> 
> Many thanks,
> -T
> 
> 


Got it:

$ p6 'my $x = "01.0.3.06.10"; say ($x.comb(/\d+/)>>.Int).join(".");'
1.0.3.6.10



-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Computers are like air conditioners.
They malfunction when you open windows
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About