diff options
| -rwxr-xr-x | challenge-143/alexander-pankoff/perl/ch-1.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-143/alexander-pankoff/perl/ch-1.pl b/challenge-143/alexander-pankoff/perl/ch-1.pl new file mode 100755 index 0000000000..5e18a29391 --- /dev/null +++ b/challenge-143/alexander-pankoff/perl/ch-1.pl @@ -0,0 +1,7 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my $expr = $ARGV[0]; +die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\*\(\)]*$/; +print eval($expr) . "\n"; |