diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2020-10-26 05:47:24 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2020-10-26 05:47:24 +0800 |
| commit | 3c286df018137307d646a03e19b638bab506ede1 (patch) | |
| tree | 7e57290fc439bbda720491376bdfb704e5d47005 | |
| parent | 242e27c247aa264450786093221c3f077ce85b8c (diff) | |
| download | perlweeklychallenge-club-3c286df018137307d646a03e19b638bab506ede1.tar.gz perlweeklychallenge-club-3c286df018137307d646a03e19b638bab506ede1.tar.bz2 perlweeklychallenge-club-3c286df018137307d646a03e19b638bab506ede1.zip | |
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"; |