diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-04-27 17:45:23 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-04-27 17:45:23 +0100 |
| commit | 70914a59ac8330255d08ac70e5fdfe3617533f67 (patch) | |
| tree | 657197587013a5c89c43715668cfbb0619c9b62d | |
| parent | cc4b5cc7b4f9c08f998e1e9d6e4e7eba486549b7 (diff) | |
| download | perlweeklychallenge-club-70914a59ac8330255d08ac70e5fdfe3617533f67.tar.gz perlweeklychallenge-club-70914a59ac8330255d08ac70e5fdfe3617533f67.tar.bz2 perlweeklychallenge-club-70914a59ac8330255d08ac70e5fdfe3617533f67.zip | |
- Removed comments.
| -rw-r--r-- | challenge-110/mohammad-anwar/perl/ch-1.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/challenge-110/mohammad-anwar/perl/ch-1.pl b/challenge-110/mohammad-anwar/perl/ch-1.pl index 141fdf3b8e..4dce75e324 100644 --- a/challenge-110/mohammad-anwar/perl/ch-1.pl +++ b/challenge-110/mohammad-anwar/perl/ch-1.pl @@ -12,17 +12,6 @@ open(my $fh, '<:encoding(utf8)', $FILE) while (my $row = <$fh>) { chomp $row; - # - # I got the following regex works fine against the test data - # when used on regex101.com - # - # /^\+?|(\()?\d{2}\d{2}?\1?\s\d{10}$/ - # - # But For some strange reason, it didn't work here. - # - # So I had to get the following instead. - # - if ( ($row =~ /\+\d{2}\s\d{10}/) || ($row =~ /\d{4}\s\d{10}/) || ($row =~ /\(\d{2}\)\s\d{10}/) |