Week 1: Add the appropriate comments.

10 files changed, 62 insertions, 8 deletions

diff --git a/challenge-001/abigail/awk/ch-1.awk b/challenge-001/abigail/awk/ch-1.awk
index 66adcae5c7..14e0803ccb 100644
--- a/challenge-001/abigail/awk/ch-1.awk
+++ b/challenge-001/abigail/awk/ch-1.awk
@@ -1,3 +1,13 @@
+#!/usr/bin/awk
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+#
+
+#
+# Run as: awk -f ch-1.awk < input-file
+#
+
 {
     count = gsub ("e", "E")
     print $0
diff --git a/challenge-001/abigail/awk/ch-2.awk b/challenge-001/abigail/awk/ch-2.awk
index 23f8dff855..148f5718ba 100644
--- a/challenge-001/abigail/awk/ch-2.awk
+++ b/challenge-001/abigail/awk/ch-2.awk
@@ -1,5 +1,7 @@
+#!/usr/bin/awk
+
 #
-# See ../README.md
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
 #
 
 #
diff --git a/challenge-001/abigail/bash/ch-1.sh b/challenge-001/abigail/bash/ch-1.sh
index 7133f8ceb7..2da9870847 100644
--- a/challenge-001/abigail/bash/ch-1.sh
+++ b/challenge-001/abigail/bash/ch-1.sh
@@ -1,3 +1,15 @@
+#!/bin/sh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+#
+
+#
+# Run as: bash ch-1.sh < input-file
+#
+
+set -f
+
 while read line
 do    echo "${line//e/E}"   # Replace all 'e's with 'E'; print result.
       ees="${line//[^e]}"   # Remove anything which is not an 'e'.
diff --git a/challenge-001/abigail/bash/ch-2.sh b/challenge-001/abigail/bash/ch-2.sh
index b81a0b0414..54b3efd216 100644
--- a/challenge-001/abigail/bash/ch-2.sh
+++ b/challenge-001/abigail/bash/ch-2.sh
@@ -1,9 +1,11 @@
+#!/bin/sh
+
 #
-# See ../README.md
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
 #
 
 #
-# Run as: bash ch-1.sh < input-file
+# Run as: bash ch-2.sh < input-file
 #
 
 while read max
diff --git a/challenge-001/abigail/c/ch-1.c b/challenge-001/abigail/c/ch-1.c
index fabd2d2f22..27924d6523 100644
--- a/challenge-001/abigail/c/ch-1.c
+++ b/challenge-001/abigail/c/ch-1.c
@@ -2,6 +2,14 @@
 # include <stdio.h>
 # include <string.h>
 
+/*
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+ */
+
+/*
+ * Run as: cc -o ch-1.o ch-1.c; ./ch-1.o < input-file
+ */
+
 int main (void) {
     char *  line    = NULL;
     size_t  len     = 0;
diff --git a/challenge-001/abigail/c/ch-2.c b/challenge-001/abigail/c/ch-2.c
index 4c72835827..4bab173bf5 100644
--- a/challenge-001/abigail/c/ch-2.c
+++ b/challenge-001/abigail/c/ch-2.c
@@ -3,11 +3,11 @@
 # include <string.h>
 
 /*
- * See ../README.md
+ * See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
  */
 
 /*
- * Run as: cc -o ch-2.o cc-2.c; ./ch-2.o < input-file
+ * Run as: cc -o ch-2.o ch-2.c; ./ch-2.o < input-file
  */
 
 int main (void) {
diff --git a/challenge-001/abigail/node/ch-1.js b/challenge-001/abigail/node/ch-1.js
index 9cc9980719..847777ec00 100644
--- a/challenge-001/abigail/node/ch-1.js
+++ b/challenge-001/abigail/node/ch-1.js
@@ -1,3 +1,13 @@
+#!/usr/local/bin/node
+
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+//
+
+//
+// Run as: node ch-1.js < input-file
+//
+
 //
 // Read STDIN. Split on newlines, filter out empty lines, then call "main".
 //
diff --git a/challenge-001/abigail/node/ch-2.js b/challenge-001/abigail/node/ch-2.js
index 41155714f8..daf4abcf8e 100644
--- a/challenge-001/abigail/node/ch-2.js
+++ b/challenge-001/abigail/node/ch-2.js
@@ -1,9 +1,11 @@
+#!/usr/local/bin/node
+
 //
-// See ../README.md
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
 //
 
 //
-// Run as: node ch-1.js < input-file
+// Run as: node ch-2.js < input-file
 //
 
   require      ("fs")
diff --git a/challenge-001/abigail/perl/ch-1.pl b/challenge-001/abigail/perl/ch-1.pl
index 8fd893fb93..fb4fd7e233 100644
--- a/challenge-001/abigail/perl/ch-1.pl
+++ b/challenge-001/abigail/perl/ch-1.pl
@@ -9,6 +9,14 @@ no  warnings 'syntax';
 use experimental 'signatures';
 use experimental 'lexical_subs';
 
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
+#
+
+#
+# Run as: perl ch-1.pl < input-file
+#
+
 while (<>) {
     my $changes = y/e/E/;
     say $_, $changes
diff --git a/challenge-001/abigail/perl/ch-2.pl b/challenge-001/abigail/perl/ch-2.pl
index 27521c71cb..a4622fa5fe 100644
--- a/challenge-001/abigail/perl/ch-2.pl
+++ b/challenge-001/abigail/perl/ch-2.pl
@@ -10,7 +10,7 @@ use experimental 'signatures';
 use experimental 'lexical_subs';
 
 #
-# See ../README.md
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
 #
 
 #