Mega Code Archive

 

Categories / Perl / File

 

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");  }