diff options
| -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 |