On Jun 4, David T-G said:
>Bob, et al --
>%
>% perl -lpe '$_ = join ", ", unpack("c*", $_)'
>
>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?
You run into a problem here, since F1 is NOT a single key-code, it's a
single key-PRESS. F1 is one key-press that yields Escape-O-P.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
