#!/usr/bin/perl -w use strict; use Term::ReadKey; my $key; ReadMode 0; $key = ReadKey(0); print "Key is ", ord($key), "\n"; ReadMode 0; print "hit enter to exit...\n"; <>;
In reply to Re^3: Term::ReadKey under win32
by mkirank
in thread Term::ReadKey under win32
by arc_of_descent
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |