[D]perl小程序求批改（2）

[D]perl小程序求修改（2）

Perl code

$number=int(1 and 100);$found_it=0;loop:{print"please input a number between 1 and 100\n";chomp($guess=<STDIN>);given($guess){ when ($_<$number) {print "Too small\n"} when($_>$number) {print "Too large\n"} When(!/^\d+$/){print "not a number\n"} default {print "you got it!\n"; $found_it++}                }  last loop if $found_it; redo loop;}

Perl code

use 5.010;($min, $max) = (1, 100);loop: {    print"please input a number between 1 and 100\n";    chomp($guess=<STDIN>);    $found_it=0;    given ($guess) {        when ($guess<$min)  {print "Too small\n"}        when ($guess>$max)  {print "Too large\n"}        when (!/^\d+$/)     {print "not a number\n";break}        default             {print "you got it!\n"; $found_it++}    }    last loop if $found_it;    redo loop;}