Using getc. : getc « File « Perl

1. Perl
2. File
3. 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