Perl入学式 #7補講で講師役をしてきました 1 my $input = "John is Great Man!";<br>my $pattern = qr/(?:[jJ]ohn)/;<br>if ($input =~ $pattern) {<br> print "マッチした！";<br>}<br> 1 my $input = "John is Great Man!";<br>my $pattern = "(?:[jJ]ohn)";<br>if ($input =~ $pattern) {<br> print "マッチした！";<br>}<br>