#!/usr/bin/env perl
use warnings;
use 5.012;
use Term::ReadKey;
sub getch {
my $c = ReadKey 0;
if ($c eq "\e") {
my $c = ReadKey 0.10;
if ($c eq '[') {
my $c = ReadKe
はTerm::ReadKeyはそれを行うことができ、同様の方法でTerm::TermKeyとカーソル位置のホールドを取得することが可能です: #!/usr/bin/env perl
use warnings;
use 5.12.0;
use Term::ReadKey;
ReadMode 4;
system('clear') == 0 or die $?;
print "Hello