#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: char,v 1.2 1998/05/03 17:37:34 ejb Exp $
# $Source: /home/ejb/scripts/RCS/char,v $
# $Author: ejb $
#

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

&usage if (@ARGV != 1);
$arg = shift(@ARGV);

if (length($arg) == 1)
{
    printf("%d 0%o 0x%x\n", ord($arg), ord($arg), ord($arg));
}
else
{
    # Note: oct handles 0x for hex.
    ($arg =~ m/^0/) && ($arg = oct($arg));
    print chr($arg);
}

sub usage {
    print STDERR <<EOF;
Usage: $whoami [char | num]
   If char is given, print its ASCII value.  If num is given, print the ASCII
   character with that value.
EOF
    ;
    exit 1;
}