|
@@ -27,6 +27,9 @@ coerce__noctl() {
|
27
|
27
|
#
|
28
|
28
|
# Replace non-printable characters with $COERCE__REPCHAR
|
29
|
29
|
#
|
|
30
|
+ # Keep only characters that have grapgical representation ([:graph:] POSIX
|
|
31
|
+ # class), newline, tab and space. Replace rest with $COERCE__REPCHAR.
|
|
32
|
+ #
|
30
|
33
|
perl -CS -Mutf8 -pe "s|[^[:graph:] \t\n]|$COERCE__REPCHAR|g"
|
31
|
34
|
}
|
32
|
35
|
|