From ca3cc521dd28478c9b51b7c3d9a176835cfa6fa9 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 2 Jul 2017 02:13:25 +1200
Subject: Remove POSIX char classes from Awk

I forgot that Debian's awk(1) is still a mawk that doesn't implement
e.g. [:alpha:]
---
 bin/mw.awk  | 2 +-
 bin/onl.awk | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'bin')

diff --git a/bin/mw.awk b/bin/mw.awk
index 48f45fb1..95d70c32 100644
--- a/bin/mw.awk
+++ b/bin/mw.awk
@@ -5,6 +5,6 @@ BEGIN {
 }
 {
     for (i = 1; i <= NF; i++)
-        if ($i ~ /[[:alpha:]]/)
+        if ($i ~ /[a-zA-Z]/)
             print $i
 }
diff --git a/bin/onl.awk b/bin/onl.awk
index 466b8451..15e4f46d 100644
--- a/bin/onl.awk
+++ b/bin/onl.awk
@@ -2,8 +2,8 @@
 
 # For each line of input ...
 { 
-    # Strip out non-printable characters and rebuild the fields
-    gsub(/[[:cntrl:]]/, "")
+    # Strip out whitespace characters and rebuild the fields
+    gsub(/[\n\t\r ]+/, "")
 
     # Print each field, without a newline; add a leading space if it's not the
     # very first one
-- 
cgit v1.2.3