diff options
| author | Abigail <abigail@abigail.be> | 2021-04-26 18:49:38 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-04-26 18:49:38 +0200 |
| commit | eaafeb924c8473172e139a8a92539b504550429b (patch) | |
| tree | 1ba541a78326558107b7fdde45a4544ea348aa58 | |
| parent | fade7f9cc20b4a6bd64313aa3f07ac2e40c10a5e (diff) | |
| download | perlweeklychallenge-club-eaafeb924c8473172e139a8a92539b504550429b.tar.gz perlweeklychallenge-club-eaafeb924c8473172e139a8a92539b504550429b.tar.bz2 perlweeklychallenge-club-eaafeb924c8473172e139a8a92539b504550429b.zip | |
AWK solution for week 110, part 1
| -rw-r--r-- | challenge-110/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-110/abigail/awk/ch-1.awk | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/challenge-110/abigail/README.md b/challenge-110/abigail/README.md index 789f3d845f..6e98908e45 100644 --- a/challenge-110/abigail/README.md +++ b/challenge-110/abigail/README.md @@ -41,6 +41,7 @@ We therefore conclude the examples just contain random spaces, and we can completly ignore any white space in the input. ### Solutions +[AWK](awk/ch-1.awk) [Perl](perl/ch-1.pl) ### Blog diff --git a/challenge-110/abigail/awk/ch-1.awk b/challenge-110/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..7b5cfbd981 --- /dev/null +++ b/challenge-110/abigail/awk/ch-1.awk @@ -0,0 +1,16 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk < input-file +# + + {line = $0; + gsub (/ */, "", line)} # Remove spaces + +match (line, /^[0-9]{14}$/) || # nnnn nnnnnnnnnn +match (line, /^\+[0-9]{12}$/) || # +nn nnnnnnnnnn +match (line, /^\([0-9]{2}\)[0-9]{10}$/) {print} # (nn) nnnnnnnnnn |