&1"; : system « System Functions « Perl "/>&1"; : system « System Functions « Perl "/>

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

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » System Functions » 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.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.