system "stty cbreak &1"; : system « System Functions « Perl






  1. Perl
  2. System Functions
  3. system

system "stty cbreak &1";

    

system "stty cbreak </dev/tty >&1";

print "Type an up arrow:";
$c1 = getc;       
$c2 = getc;       
$c3 = getc;       

if ((ord($c1) == 27) && ($c2 eq '[') && ($c3 eq 'A')) {        
    print "You typed an up arrow.";
} else {
    print "You did not type an up arrow.";
}








Related examples in the same category

1.Using system on Windows
2.Using system on Windows with the Windows START command
3.Using system to call os/shell function
4.stty cbreak </dev/tty >&1
5.Using system to call a command passed in by an array
6.Calling system.
7.Read system command and execute
8.Uses the system function to clear the screen
9.The system command executes a command and waits until that command completes.