ここで、このperlコードのエラーです。

Question

my $secret = int(1+rand(100)); 
LOOP: { 

    print "Please enter a guess from 1 to 100: "; 
    chomp(my $guess = <STDIN>); 
    my $found_it = 0; 
    given($guess) { 
     when (! /\A\d+\Z/) { say "Not a number!" } 
     when ($_ > $secret) { say "Too High!" } 
     when ($_ < $secret) { say "Too low!" } 
     default { say "Just right!"; $found_it++ } 
    } 
    last LOOP if $found_it; 
    redo LOOP; 
} 

このコードは実行できません。私は間違いを見つけることができません！ ​​

Answer 1

あなたが使用している新しいキーワードが認識されていないように見えます。

あなたはまだなっていない場合は、それらを有効にする：あなたは、暗黙的にスマートマッチを使用しているので、また

use 5.010; # or higher 
# or 
use feature 'switch'; 

、より新しいPerlのバージョンでは、あなたは

no warnings 'experimental::smartmatch'; 

を言う必要がありますし、将来のPerlバージョンでは変更が予定されています。