diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-07 15:27:48 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-07 15:27:48 +0100 |
| commit | 0266e19afd9fcf54c494c093001b82805dfedc6c (patch) | |
| tree | 2dbe2a6ad8613d3886df6b247cc98ee5916d0b7b | |
| parent | 444207a4dcb69725d01fa5dd5232df8515678f9a (diff) | |
| parent | 95c1e954092c1f17e5d9f219e844e38480a1d2f8 (diff) | |
| download | perlweeklychallenge-club-0266e19afd9fcf54c494c093001b82805dfedc6c.tar.gz perlweeklychallenge-club-0266e19afd9fcf54c494c093001b82805dfedc6c.tar.bz2 perlweeklychallenge-club-0266e19afd9fcf54c494c093001b82805dfedc6c.zip | |
Merge pull request #25 from andrezgz/challenge-002-fix-ch-1
challenge-002 andrezgz fix ch-1
| -rw-r--r-- | challenge-002/andrezgz/perl5/ch-1.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-002/andrezgz/perl5/ch-1.pl b/challenge-002/andrezgz/perl5/ch-1.pl index 36addeca96..52f8af5a65 100644 --- a/challenge-002/andrezgz/perl5/ch-1.pl +++ b/challenge-002/andrezgz/perl5/ch-1.pl @@ -32,10 +32,13 @@ # 01. -> 1. # 01.0 -> 1.0 # 010.0 -> 10.0 +# 00.1 -> 0.1 + +# + All the above with a comma instead of a dot use strict; my $number = @ARGV[0]; -$number =~ s/^0+([1-9][0-9]*(:?[.,]\d*)?)$/$1/; +$number =~ s/^0+([1-9]*[0-9]+(:?[.,]\d*)?)$/$1/; print $number; |