diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-04-26 09:05:09 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-04-26 09:05:09 +0200 |
| commit | 4349ac4778e200e3a5865ddd94b3b044deee7f54 (patch) | |
| tree | 34977eaa614431c74963029e0b1b2713d8ea97b7 | |
| parent | 1ff197d81f941c3dd35d77bec8a0326807e8d2b1 (diff) | |
| download | perlweeklychallenge-club-4349ac4778e200e3a5865ddd94b3b044deee7f54.tar.gz perlweeklychallenge-club-4349ac4778e200e3a5865ddd94b3b044deee7f54.tar.bz2 perlweeklychallenge-club-4349ac4778e200e3a5865ddd94b3b044deee7f54.zip | |
Task 1 done
| -rw-r--r-- | challenge-110/luca-ferrari/raku/ch-1.p6 | 10 | ||||
| -rw-r--r-- | challenge-110/luca-ferrari/raku/phone.txt | 5 |
2 files changed, 15 insertions, 0 deletions
diff --git a/challenge-110/luca-ferrari/raku/ch-1.p6 b/challenge-110/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..2eee9c781f --- /dev/null +++ b/challenge-110/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,10 @@ +#!raku + + +sub MAIN( Str $file-name = 'phone.txt' ) { + my @regexps = rx / ^ \s* <[+]> \d ** 2 \s+ \d ** 10 $ / + , rx / ^ \s* <[(]> \d ** 2 <[)]> \s+ \d ** 10 $ / + , rx / ^ \s* \d ** 4 \s+ \d ** 10 $ /; + + say $_ if $_ ~~ any @regexps for $file-name.IO.lines; +} diff --git a/challenge-110/luca-ferrari/raku/phone.txt b/challenge-110/luca-ferrari/raku/phone.txt new file mode 100644 index 0000000000..48d6254741 --- /dev/null +++ b/challenge-110/luca-ferrari/raku/phone.txt @@ -0,0 +1,5 @@ +0044 1148820341 + +44 1148820341 + 44-11-4882-0341 +(44) 1148820341 + 00 1148820341 |