条件分岐式。

質問

現在条件分岐式について考えているのですが、できないので教えてください。

入力フォームで、画像の入力が合った場合は表示し、画像の入力が無かった場合は、
<IMG src=***
の記述もしないようにしたいのです。
（何もないとバッテンが出てしまうため。）

$GAZOU_1=$FORM{'GAZOU1'};
$GAZOU1="<IMG SRC='$GAZOU_1'>";

if ($GAZOU_1 eq ''){
$GAZOU1 eq '';
}
elsif($GAZOU_1 ne ''){
$GAZOU1 eq $GAZOU1;
}

としてみましたがダメでした。

どこが違うかご指摘お願いします。

回答No.1

osamuy · ベストアンサー

普通に考えると、こんな感じでは：

$GAZOU_1 = $FORM{ 'GAZOU1' };
if ( $GAZOU_1 eq '' ){
$GAZOU1 = '';
} else {
$GAZOU1 = "<IMG SRC='$GAZOU_1'>";
}

＞ if ($GAZOU_1 eq ''){
＞ $GAZOU1 eq '';
＞ }
eqは、比較演算子で、変数に値を代入する機能はありませんので、素直に

$GAZOU1 = '';

とすべきかと。
ここらへん、ピンとこない場合は、Perlについての入門書とかをごらんになってみては。

お礼

できました。ありがとうございます。

先に変数で定義するわけではなく、関数中でやってしまうんですね。
ありがとうございました。