perl学习札记1--键盘输入

从键盘读输入，知道口令正确为止的程序：

#!/usr/local/bin/perl
print "Password? ";		# Ask for input
$a = <STDIN>;			# Get input
chop $a;			# Remove the newline at end
while ($a ne "fred")		# While input is wrong...
{
    print "sorry. Again? ";	# Ask again
    $a = <STDIN>;		# Get input again
    chop $a;			# Chop off newline again
}
print "OK, the password is right!";

第一，我们可以从标准输入读入信息，而不用打开文件。
第二，当口令被输入时，$a被赋予包括换行符在结尾的值。chop函数删除字符串的最后一个字符，这里是换行符。