getc FILEHANDLE
getc
从FILEHANDLE读取下一个字符(或STDIN如果没有指定),返回该值。
undef - 出错或到达文件结尾
从文件句柄读取的字符值
试试以下的例子:
#!/usr/bin/perl #by www.gitbook.net $key = getc(STDIN); print "Entred value is $key\n";