字符串的比较操作符：小于 ----- lt 大于---- gt 小于或等于----le 大于或等于------ge
<STDIN>：获取用户输入（一行读入知道遇到末尾的换行符为止）
chomp():去掉每行字符串中换行符
循环结构用while
undef值没有赋值的一个标量。（undef作为数字时被视为0，作为字符为空字符）
defined：此函数用来判断某个字符串是undef而不是空字符串
perl的基本代码
原文：http://www.cnblogs.com/yupeter007/p/5625199.html
