Bob, et al -- ...and then Bob Showalter said... % % > -----Original Message----- % > From: David T-G [mailto:[EMAIL PROTECTED]] ... % > which will read stdin, spit out the key codes it gets until a ... % % How 'bout: % % perl -lpe '$_ = join ", ", unpack("c*", $_)'
Aha! So I need to go and read up on unpack; I was thinking pack because I had it backwards. Is there a simple way to get perl to spit out one line per incoming keycode? That is, get it to spit out 27, 79, 80 27, 91, 50, 51, 126 when it sees F1 followed by Shf-F1 without a newline between them? TIA & HAND :-D -- David T-G * It's easier to fight for one's principles (play) [EMAIL PROTECTED] * than to live up to them. -- fortune cookie (work) [EMAIL PROTECTED] http://www.justpickone.org/davidtg/ Shpx gur Pbzzhavpngvbaf Qrprapl Npg!
msg25390/pgp00000.pgp
Description: PGP signature
