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

最新推荐文章于 2023-07-02 17:28:28 发布

原创最新推荐文章于 2023-07-02 17:28:28 发布 · 1.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#perl #newline #input

本文介绍了一个使用Perl语言编写的简单程序，该程序从键盘读取输入直至获取正确的口令。通过标准输入读取信息，并利用chop函数去除换行符。

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

#!/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函数删除字符串的最后一个字符，这里是换行符。