1 files changed, 28 insertions, 0 deletions
diff --git a/bin/tl.sh b/bin/tl.sh
new file mode 100644
index 00000000..86bca469
--- /dev/null
+++ b/bin/tl.sh
@@ -0,0 +1,28 @@
+# Tag lines from files or stdin with a string prefix or suffix
+self=tl
+
+# Parse options out
+while getopts 'p:s:' opt ; do
+    case $opt in
+
+        # Prefix
+        p) pref=$OPTARG ;;
+
+        # Suffix
+        s) suff=$OPTARG ;;
+
+        # Unknown option
+        \?)
+            printf >&2 '%s: Unknown option %s\n' \
+                "$self" "$opt"
+            exit 2
+            ;;
+    esac
+done
+shift "$((OPTIND-1))"
+
+# Print each line as we read it, adding the tags
+cat -- "${@:--}" |
+while IFS= read -r line ; do
+    printf '%s%s%s\n' "$pref" "$line" "$suff"
+done