perlのプログラミング 比較

質問

perlでBIG or SMALL 的なプログラムを作っているんですけど何故か挙動がおかしいです。

$trueには1から10までの乱数が入ります。
$randsには1から10までの乱数が入ります。
$bigには事前にプレーヤーから聞いた$randsより大きい？小さい？が大きい = 1 小さい =0 で入ってます。

評価の仕方がおかしいのでしょうか…？
ご教授下さい。
---
# 本当よりランダムが大きい
if ($true < $rands)
{
# 正解
if ($big == 0)
{
$com "正解！";
}
# 不正解
else
{
$com = "不正解…";
}
}
# 本当よりランダムが小さい
if ($true > $rands)
{
# 正解
if ($big == 1)
{
$com = "正解！";
}
# 不正解
else
{
$com = "不正解…";
}
}

回答No.1

Gotthold · ベストアンサー

> $com "正解！";
= （イコール）が抜けてる。

それから、「何故か挙動がおかしい」じゃ何も分からないので、
「どういう動作を期待しているのか」、「実際にはどんな動作になってしまうのか」をちゃんと書いてください。

==============================
#テストプログラム
sub check{
　my ($true, $rands, $big) = @_;
　my $com = "???";

　# 本当よりランダムが大きい
　if ($true < $rands)
　{
　　# 正解
　　if ($big == 0)
　　{
　　　$com = "正解！";
　　}
　　# 不正解
　　else
　　{
　　　$com = "不正解…";
　　}
　}

　# 本当よりランダムが小さい
　if ($true > $rands)
　{
　　# 正解
　　if ($big == 1)
　　{
　　　$com = "正解！";
　　}
　　# 不正解
　　else
　　{
　　　$com = "不正解…";
　　}
　}

　print $true, $big?">":"<", $rands, " ===> ", $com, "\n";
}

check(1,4,0);　　# 1<4 ===> 正解！
check(1,4,1);　　# 1>4 ===> 不正解…
check(10,1,0);　 # 10<1 ===> 不正解…
check(10,1,1);　 # 10>1 ===> 正解！
check(2,2,0);　　# 2<2 ===> ???
check(2,2,1);　　# 2>2 ===> ???

お礼

わざわざコードを書いてくださってありがとうございます。
フォームの引き継ぎができてない初歩的なミスでした。申し訳ない。
とりあえず事故解決しました。