Using getc. : getc « File « 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 » File » getc

Using getc.

   

#!/usr/local/bin/perl 



&start_hot_keys; 

while (1) { 

   $char = getc(STDIN); 

   last if ($char eq "\\"); 

   $char =~ tr/a-zA-Z0-9/b-zaB-ZA1-90/; 

   print ($char); 

} 

&end_hot_keys; 

print ("\n"); 



sub start_hot_keys { 

   system ("stty cbreak"); 

   system ("stty -echo"); 

} 



sub end_hot_keys { 

   system ("stty -cbreak"); 

   system ("stty echo"); 

}

Related examples in the same category

1.	The getc function gets a single character from the keyboard or from a file.
2.	Using getc function to read character from a file
3.	Using getc function with while loop

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.