#!/usr/bin/perl -s

# vis - text filter to make all characters ASCII visible/printable
# Steve Kinzler, kinzler@cs.indiana.edu, Sep 04
# http://www.cs.indiana.edu/~kinzler/home.html#unix

$usage = "usage: $0 [ -N ] [ -b ] [ -f ] [ -r ] [ -T ] [ file ... ]
	-N	make newlines visible
	-b	don't make backspaces visible
	-f	don't make formfeeds visible
	-r	don't make carriage returns visible
	-T	make tabs visible\n";
die $usage if $h;

while (<>) {
	s/\n/\\n/g	if $N;
	s/[\000-\007\013\016-\037\177-\377]/sprintf('\\%03o', ord($&))/eg;
	s/\010/\\b/g	unless $b;
	s/\f/\\f/g	unless $f;
	s/\r/\\r/g	unless $r;
	s/\t/\\t/g	if $T;
	print;
}