会python真的可以为所欲为0(回)
349天前
这里还有人吗1(回)
534天前这里还有人吗0(回)
534天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
759天前到处都是羊，不想上班0(回)
839天前
鸽子
0(回)
843天前#----------------------------- |
use Term::ReadKey; |
ReadMode ( 'cbreak' ); |
$key = ReadKey ( 0 ); |
ReadMode ( 'normal' ); |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl -w |
# sascii - Show ASCII values for keypresses |
use Term::ReadKey; |
ReadMode ( 'cbreak' ); |
print "Press keys to see their ASCII values. Use Ctrl-C to quit.\n"; |
while ( 1 ) |
{ |
$char = ReadKey ( 0 ); |
last unless defined $char; |
printf ( " Decimal: %d\tHex: %x\n", ord ( $char ), ord ( $char ) ); |
} |
ReadMode ( 'normal' ); |
#----------------------------- |
