diff options
| author | Abigail <abigail@abigail.be> | 2021-01-20 02:32:58 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-01-20 02:32:58 +0100 |
| commit | 51e02c802d7f433b447a983241c91f5ed8c9d756 (patch) | |
| tree | 42fa93c0c923e8999fe95126e79b9c050b0ee300 | |
| parent | 057e4bce55bfc00c96073913cb49d7bf614e322e (diff) | |
| download | perlweeklychallenge-club-51e02c802d7f433b447a983241c91f5ed8c9d756.tar.gz perlweeklychallenge-club-51e02c802d7f433b447a983241c91f5ed8c9d756.tar.bz2 perlweeklychallenge-club-51e02c802d7f433b447a983241c91f5ed8c9d756.zip | |
AWK solution for week 1, part 1
| -rw-r--r-- | challenge-001/abigail/README.md | 2 | ||||
| -rw-r--r-- | challenge-001/abigail/awk/ch-1.awk | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/challenge-001/abigail/README.md b/challenge-001/abigail/README.md index e21e3a20af..6c4b4b565b 100644 --- a/challenge-001/abigail/README.md +++ b/challenge-001/abigail/README.md @@ -7,6 +7,8 @@ Write a script to replace the character `e` with `E` in the string `e` is found in the string. ### Solutions +* [AWK](awk/ch-1.awk) +* [C](c/ch-1.c) * [Perl](perl/ch-1.pl) diff --git a/challenge-001/abigail/awk/ch-1.awk b/challenge-001/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..66adcae5c7 --- /dev/null +++ b/challenge-001/abigail/awk/ch-1.awk @@ -0,0 +1,5 @@ +{ + count = gsub ("e", "E") + print $0 + print count +} |