> -----Original Message-----
> From: David T-G [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, June 04, 2002 12:48 PM
> To: perl beginners
> Subject: printing key codes
>
>
> Hi, all --
>
> It seems like it should be a very easy thing to whip up a
> perl one-liner
> which will read stdin, spit out the key codes it gets until a
> ctrl-D, and
> then quit; something like
>
> perl -e 'while (<>) { print SomeMagicHere . \n; }
>
How 'bout:
perl -lpe '$_ = join ", ", unpack("c*", $_)'
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
