一个猜数perl脚本

KornLee

这个脚本是我的一个练习~~,挺有趣的,包括了必要的基础知识~~

2. #!perl -w
3. $rand=int(1 + rand 100);
4. while (1) {
5.         print "Please input number from 1 to 100:";
6.         chomp($input=<>);
7.         if ($input =~ /quit|exit|^\s*$/i) {
8.         print "Sorry,You lose!\nThe rand-number is: $rand\n";
9.         last;
10.         } elsif ($input lt$rand) {
11.                 print "Too small,Try input again!\n";
12.         } elsif ($input eq $rand) {
13.                 print "You win!\n";
14.                 last;
15.         }else {
16.                 print "Tool large.Try input again!\n";
17.         }
18. }

复制代码

georgek

有趣, 下次我得弄個mastermind 玩玩

devel

if ($input =~ /quit|exit|^\s*$/i) {

发现这里用if ($input =~ $rand ){ 代替也行，perl还能这样，真神阿。。。。就是觉的那数的范围好象变小了。:ask

/quit|exit|^\s*$/i 看不懂是什么意思？

devel

最初由 georgek 发表
有趣, 下次我得弄個mastermind 玩玩

等着你的脚本。。

KornLee

最初由 devel 发表

/quit|exit|^\s*$/i 看不懂是什么意思？

^\s*$:表示非空白字符的行, 注意^和$
/i:忽略大小写,
这是对你输入的字符进行测试~,如果你输入了字符而不是数字的话,会发生意想不到的后果,perl将你输入的字符解释成数字!

devel

谢谢！！！quit|exit|不懂，这里能用命令？

lanb

感觉perl的matching和hashing的功能很强的说!

georgek

是在找quit / exit

wuduer

$input =~ /quit|exit|^\s*$/i
查找quit 和exit 如果有的话就退出

bst

#/usr/bin/perl -w
$rand = int(1+rand 100);#使用随机函数rand得到一个整数放在$rand中
print (rand 100);
while(1) {#开始循环
        print "please input number from 1 to 100:";
        chomp($input = <>);#去掉输入整数末尾的enter字符
        if($input =~ /quit|exit|^\s*$/i) {#模式匹配如果输入quit or exit or 空格 则退出程序
        print "sorry, you lose! \n the rand-number is $rand \n";#退出程序输出随机数
        last;#退出程序
        }
        elsif($input lt $rand) {#条件判断
        print "you win!\n";
        last;
        }
        else {
        print "tool large . try input again!\n";
        }
}

注释了一下..