diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-10-25 21:52:14 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-25 21:52:14 +0000 |
| commit | 4928284eb30cf4ad0a895575017ce83dc220b0c2 (patch) | |
| tree | cef4c33a669b9b3c404d10dc09db5cfc68cd1077 | |
| parent | c54008471e3642e7d1d7be7d70e35753add27035 (diff) | |
| parent | 3c286df018137307d646a03e19b638bab506ede1 (diff) | |
| download | perlweeklychallenge-club-4928284eb30cf4ad0a895575017ce83dc220b0c2.tar.gz perlweeklychallenge-club-4928284eb30cf4ad0a895575017ce83dc220b0c2.tar.bz2 perlweeklychallenge-club-4928284eb30cf4ad0a895575017ce83dc220b0c2.zip | |
Merge pull request #2620 from E7-87-83/master
Fix a FLAW in Task 1!
| -rw-r--r-- | challenge-083/cheok-yin-fung/perl/ch-1.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-083/cheok-yin-fung/perl/ch-1.pl b/challenge-083/cheok-yin-fung/perl/ch-1.pl index d52d4a2055..a3168fee61 100644 --- a/challenge-083/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-083/cheok-yin-fung/perl/ch-1.pl @@ -1,4 +1,6 @@ $_ = <STDIN>; -/(^\w+\s)((\w+\s*)+)(\s\w+$)/; -print length $2,"\n"; +/(^\w+\s)([\w\s*]+)(\s\w+$)/; +$_ = $2; +s/\s//g; +print length, "\n"; |