[D]perl小程序求修改（2）Perl code$numberint(1 and 100)$found_it0loop:{printplease input a number
[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;}总是调不通，有语法错误，但找不到在哪
--------------------------
Double行动：
原帖分数：40
帖子加分：40
[解决办法]
- 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;}