File Perl

  1. Home
  2. Perl
  3. File
  4. 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"); 
}