IFのネストについて(PERL/CGI)

質問

データファイルからＨＴＭＬへの吐き出しについての質問です。

CSVデータ用ファイルに
「1,0」（データNO,表示フラグ）
「2,1」
「3,1」
と並んでいて、そこから
　(1)表示フラグが１のときのみ、HTMLの表の中にサブウィンドウが開くボタンを表示させたい
　(2)表示フラグが0の時は何も表示させない

というところまで出来ているものに
　(3)データNOごとにサブウィンドウのサイズを変えたい
ということを考えているのですが
現在(3)の盛り込み方が分からず、全て同サイズのサブウィンドウを表示させるだけになってしまっています。

そもそもPERLを全然分かっていないような状況で、前の製作者のソースを触っているので
単純なIF文でいけるのかと思い、
　if($DATA[1] == 1){
　　print <<END;
　　　【<a href="JavaScript:openwin(ボタン）</a>】
　　END
　}else{
　　print<<END;
　　<br>
　　END
　}

というのを

　if($DATA[1] == 1){
　　if($DATA[0] == 1 ){
　　　print <<END;
　　　　【<a href="JavaScript:open_big(ボタン）</a>】→大きいサブウィンドウ
　　　END
　　}elsif($DATA[0] == 3 ){
　　　print <<END;
　　　　【<a href="JavaScript:open_little(ボタン）</a>】→小さいサブウィンドウ
　　　END
　　}
　}else{
　　print<<END;
　　　<br>
　　END
　}

のように変えてみたら、エラーになりました。
たぶん、参考書でも初歩中の初歩みたいな質問かと思いますが、さっぱり分からないんです。。
回答例か、このレベルの質問でも答えてくれているサイトを教えてください。
よろしくおねがいします。

回答No.1

sun_supinel · ベストアンサー

元のコードを忠実にコピーされましたでしょうか？
(変更後のソースはもとより、前の製作者様のソースもです)

例えばココですが↓
---------
　}else{
　　print<<END;
　　　<br>
　　END
#↑ココ
　}
---------
ENDの前に空白が入っていますが、インデントを加えられました？
変更前のソースにも空白がはいっているのならば
今までもエラーが出ていたと思うのですが・・・。

---------
　}else{
　　print<<END;
　　　<br>
END
#↑行頭から記述
　}
---------

if文の方は大丈夫な気はします。

見やすいようにインデントを加えられたのかもしれませんが、ヒアドキュメントの終端文字列(この場合はEND)は行頭から記述しないといけなかったと思います。

お礼

以下のように修正してみたんですが、どうもエラーになります。
　if($DATA[1] == 1){
　　if($DATA[0] == 1 ){
　　　print <<END;
　　　　【<a href="JavaScript:open_big(ボタン）</a>】→大きいサブウィンドウ
END
　　}elsif($DATA[0] == 3 ){
　　　print <<END;
　　　　【<a href="JavaScript:open_little(ボタン）</a>】→小さいサブウィンドウ
END
　　}
　}else{
　　print<<END;
　　　<br>
END
　}

元の状態（↓）だと動くんですが。
　if($DATA[1] == 1){
　　　print <<END;
　　　　【<a href="JavaScript:open_big(ボタン）</a>】→大きいサブウィンドウ
END
　　}
　}else{
　　print<<END;
　　　<br>
END
　}

ちなみにelsifを外してもだめ、elseに変えてもだめでした。追加箇所がおかしいのは明らかなんですが
$DATA[0]ってのが間違えてるんでしょうか。。。（でも他の場所では使用できているんですね）
それともprintの場所？　
ややお手上げぎみです。回答くださったのですがすみません。。

補足

あ、わざとインデントしてましたが、行頭からの記述という意識は実はありませんでした。
（前のソースはちゃんと行頭でした）
そういう簡単なとこやったかもしれないですね。
ちょっと週末で作業環境から離れますが、週明けにいけてるかどうかお礼します。ありがとうございました。