diff options
| author | Alexander Pankoff <ccntrq@screenri.de> | 2021-12-14 10:49:21 +0100 |
|---|---|---|
| committer | Alexander Pankoff <ccntrq@screenri.de> | 2021-12-14 10:49:21 +0100 |
| commit | 7172edadbb0b471cdc3570098fe3f9e3160699e6 (patch) | |
| tree | 07dc4b470aff555039f63feadb1b1a6ddf2e5825 | |
| parent | ff1256a60687a9903b39c0887e3c64115748b90d (diff) | |
| download | perlweeklychallenge-club-7172edadbb0b471cdc3570098fe3f9e3160699e6.tar.gz perlweeklychallenge-club-7172edadbb0b471cdc3570098fe3f9e3160699e6.tar.bz2 perlweeklychallenge-club-7172edadbb0b471cdc3570098fe3f9e3160699e6.zip | |
Remove duplicate char from match group
| -rwxr-xr-x | challenge-143/alexander-pankoff/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-143/alexander-pankoff/perl/ch-1.pl b/challenge-143/alexander-pankoff/perl/ch-1.pl index 5e18a29391..fcb9c8edbc 100755 --- a/challenge-143/alexander-pankoff/perl/ch-1.pl +++ b/challenge-143/alexander-pankoff/perl/ch-1.pl @@ -3,5 +3,5 @@ use strict; use warnings; my $expr = $ARGV[0]; -die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\*\(\)]*$/; +die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\(\)]*$/; print eval($expr) . "\n"; |