diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-04-28 11:06:11 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-04-28 11:06:11 +0100 |
| commit | b8ca25755d427a90d5052ca5855b664be2fa8a44 (patch) | |
| tree | 84a2c3b4567d97a3f3aff6b46a6956621177f77b /challenge-110/mohammad-anwar | |
| parent | cd817c8160270e0cafb8000a943480d84ce5f7ca (diff) | |
| download | perlweeklychallenge-club-b8ca25755d427a90d5052ca5855b664be2fa8a44.tar.gz perlweeklychallenge-club-b8ca25755d427a90d5052ca5855b664be2fa8a44.tar.bz2 perlweeklychallenge-club-b8ca25755d427a90d5052ca5855b664be2fa8a44.zip | |
- Tidied up task 1 of week 110.
Diffstat (limited to 'challenge-110/mohammad-anwar')
| -rw-r--r-- | challenge-110/mohammad-anwar/perl/ch-1.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/challenge-110/mohammad-anwar/perl/ch-1.pl b/challenge-110/mohammad-anwar/perl/ch-1.pl index 4dce75e324..c07833da30 100644 --- a/challenge-110/mohammad-anwar/perl/ch-1.pl +++ b/challenge-110/mohammad-anwar/perl/ch-1.pl @@ -12,10 +12,7 @@ open(my $fh, '<:encoding(utf8)', $FILE) while (my $row = <$fh>) { chomp $row; - if ( ($row =~ /\+\d{2}\s\d{10}/) || - ($row =~ /\d{4}\s\d{10}/) || - ($row =~ /\(\d{2}\)\s\d{10}/) - ) { + if ( $row =~ / ( \+\d{2} | \(\d{2}\) | \d{4} ) \s \d{10} /x ) { print "$row\n"; } } |