perl正規表現、置換演算子

my $str = ‘black_dog’;#変数にいぬの色挿入
if ($str =~ /black/) { #黒かどうか判定
print “Yes”;
}else{
print “No”;
}

my $str2=’black_dog’;
$str2=~ s/black/white/; #置換演算子 黒から白に変更
print $str2;

my $num=1234;
if($num=~ /[0-9]{4}/){ #numが4桁の数字かどうか判定
print “Yes”;
}else{
print “No”;
}

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA