while繰り返し処理で買い物かごカテゴリ階層表示作成

Question

買い物かごのカテゴリ階層表示作成を下記のようにしたいのですが
例）

・カテゴリ1
　　・サブカテゴリ1
　　　　・サブサブカテゴリ1
　　　　・サブサブカテゴリ2
　　・サブカテゴリ2
　　・サブカテゴリ3
・カテゴリ2

while処理のメインカテゴリ生成内でwhile処理メインカテゴリサブカテゴリ生成内でwhile処理サブカテゴリ該当サブサブカテゴリ作成です。

現在、下記のような状態となっております。
・カテゴリ1
　　・サブカテゴリ1
　　　　・サブサブカテゴリ1
　　　　・サブサブカテゴリ2
　　・サブカテゴリ1
　　・サブカテゴリ2
　　・サブカテゴリ1
　　・サブカテゴリ2
　　・サブカテゴリ3
・カテゴリ2

該当サブカテゴリには3つ配列変数があります。
while処理でサブカテゴリ1内の該当サブサブカテゴリ1と2を
出力後、サブカテゴリ1がまた出力されます。サブカテゴリ1と2を
出力後、またサブカテゴリ1、2、3と出力します。
メインカテゴリは正常表示です。
1回のwhile処理に1個ずつ増やして出力しています。
出力する変数の場所を変えると、サブカテゴリは正常表示になり
今度はサブサブカテゴリが表示されなくなります。

サブカテゴリのwhile処理の計算方法がちがうのでしょうか？
ご教授お願いいたします。

venzou · Accepted Answer

補足ありがとうございます。#5のソースを2箇所修正します。

１つ目は、私が追加した部分なんですが、計算式が間違っていました。失礼しました。

２つ目は、$ITEMOPTION2 と $ITEMOPTION3 を $ITEMCATE_SELECT に追加する部分ですが、IF文の中に有り、サブサブカテゴリが無い場合に通過しません。この時追加すべき $ITEMOPTION2 が追加されません。この代入をIF文の外に出す必要があります。


#5のソースの8行目
>$count2_offset[$i+1] = @temp2;
$count2_offset[$i+1] = $count2_offset[$i] + @temp2;


#5のソースの58行目～61行目
>$ITEMCATE_SELECT = "$ITEMCATE_SELECT$ITEMOPTION2$ITEMOPTION3";
>}
>
>$count2++;
}

$ITEMCATE_SELECT = "$ITEMCATE_SELECT$ITEMOPTION2$ITEMOPTION3";
$count2++;


以上です。
補足していただいた入力データで簡単にチェックしましたが、正常に動いていると思います。ご確認ください。

karumakaruma · Answer

＃２です。
軽く巻き戻ります。
こんな感じにすればシンプルに書けると思いますが・・・
空のカテゴリの場合、"サブカテゴリ２**サブカテゴリ３"という様に
空であるという事が判れば、空判定で
対応可能だと思います。

---------------------------------------------------------
$ITEMCATE = 'カテゴリ１*カテゴリ２';
$ITEMCATE2 = 'サブカテゴリ１%サブカテゴリ２*サブカテゴリ３';
$ITEMCATE3 = 'サブサブカテゴリ１%サブサブカテゴリ２*サブサブカテゴリ３*サブサブカテゴリ４';

@ITEMCATE = split(/\*/,$ITEMCATE);
@ITEMCATE2 = split(/\*/,$ITEMCATE2);
@ITEMCATE3 = split(/\*/,$ITEMCATE3);

for $cate_a (@ITEMCATE){
        @cate = split(/\%/,$cate_a);
        for $cate_b ( @cate ){
                if( $cate_b eq "" ){ next; }
                print $cate_b . "
";
                $cate2_a = shift(@ITEMCATE2);
                @cate2 = split(/\%/,$cate2_a);
                for $cate2_b ( @cate2 ){
                        if( $cate2_b eq "" ){ next; }
                        print "　" . $cate2_b . "
";
                        $cate3_a = shift(@ITEMCATE3);
                        @cate3 = split(/\%/, $cate3_a);
                        for $cate3_b (@cate3){
                               if( $cate3_b eq "" ){ next; }
                                print "　　" . $cate3_b . "
";
                        }
                }
        }
}
-----------------------------------------------------------

思いっきり巻き戻ります。
元々、カテゴリ、サブカテゴリ、サブサブカテゴリに
親子関係を持っていないので、表示する際に複雑になっています。

簡単な方法としては、表示階層をそのままデータとして持たせる方法とか
親子関係でデータを持たせて表示の時に上手く表示させる方法などがあります。

表示をそのまま持たせる方法
--------------------------
$ITEMCATE[0]="カテゴリ１,,";
$ITEMCATE[1]=",サブカテゴリ１,";
$ITEMCATE[2]=",,サブサブカテゴリ１";
$ITEMCATE[3]=",,サブサブカテゴリ２";
$ITEMCATE[4]=",サブカテゴリ２,";
$ITEMCATE[5]=",,サブサブカテゴリ３";
$ITEMCATE[6]="カテゴリ２,,";
$ITEMCATE[7]=",サブカテゴリ３,";
$ITEMCATE[8]=",,サブサブカテゴリ４";

カンマ区切りで表示のまま配列に保存
表示はそのままループで回して、空の所をインデントにする
--------------------------

親子関係を持たせてる方法（表示方法）
--------------------------
$ITEMCATE[0] = "カテゴリ１,サブカテゴリ１,サブサブカテゴリ１";
$ITEMCATE[1] = "カテゴリ１,サブカテゴリ１,サブサブカテゴリ２";
$ITEMCATE[2] = "カテゴリ１,サブカテゴリ２,サブサブカテゴリ３";
$ITEMCATE[3] = "カテゴリ２,サブカテゴリ３,サブサブカテゴリ４";

%CATE_MASTER;
#親子関係を連想配列に入れる（キーとして）
for $cate (@ITEMCATE) {
($cate1, $cate2, $cate3) = split(/,/, $cate);
$CATE_MASTER{$cate1}{$cate2}{$cate3} = 1;
}

foreach $cate1 ( keys(%CATE_MASTER) ){
print $cate1 . "
";
foreach $cate2 ( keys(%{$CATE_MASTER{$cate1}}) ){
print "　　" . $cate2 . "
";
foreach $cate3 ( keys(%{$CATE_MASTER{$cate1}{$cate2}}) ){
print "　　　　" . $cate3 . "
";
}
}
}
--------------------------

venzou · Answer

>$ITEMCATE = 'カテゴリ１*カテゴリ２';
>$ITEMCATE2 = 'サブカテゴリ１%サブカテゴリ２*サブカテゴリ３';
>$ITEMCATE3 = 'サブサブカテゴリ１%サブサブカテゴリ２*サブサブカテゴリ３*サブサブカテゴリ４';

このデータで検証した時には、おっしゃられている不具合は出ませんでした。$ITEMCATE3の内容の私の解釈が間違っているのかもしれません。サブサブカテゴリの内容が無い場合の事を考慮していませんでした。


不具合の結果のみ書かれても検証できませんので、その時の入力データを補足してください。

$ITEMCATE;
$ITEMCATE2;
$ITEMCATE3;

venzou · Answer

＃１、４です。追加補足ありがとうございます。問題点をいくつか発見しました。 >$ITEMOPTION2 = ""; この初期化がループの外にありましたが、中に入れる必要があります。サブカテゴリが必要以上に繰り返されたのはこの為です。 >@ITEMCATE3 = split(/\%/, @ITEMCATE3[$count]); ここですが、$countではダメですね。サブカテゴリが先頭から幾つ目に当たるのか計算して入れる必要があります。また、@ITEMCATE3 の内容が書き換えられてしまうので、２回目以降のループでおかしくなります。以下、発見した問題を修正したソースです、これで試してみてください。 sub form { #サブカテゴリが先頭から幾つ目に当たるのか計算するための前処理 @temp = split(/\*/, $ITEMCATE2); $count2_offset[0] = 0; for($i = 0;$i < @temp; $i++){ @temp2 = split(/\%/, $temp[$i]); $count2_offset[$i+1] = @temp2; } $count = 0; while($count < @ITEMCATE) { if("$ITEMCATE[$count]" ne "" and $in{'itemcate'} eq "$ITEMCATE[$count]") { $ITEMCATE_SEARCH = "$ITEMCATE_SEARCH

venzou · Answer

＃１です、ソース拝見しました。
今回補足して頂いた中で、気になる点は・・・

>@ITEMCATE2 = split(/\%/, @ITEMCATE2[$count]);
この部分で、最初に入っていた@ITEMCATE2の内容が無くなりますが、大丈夫ですか？

>@ITEMCATE3 = split(/\%/, @ITEMCATE3[$count]);
同様に、最初に入っていた@ITEMCATE3の内容が無くなります。

>if(@ITEM3[0] ne "")

@ITEM3[0]　この変数はここでしか使われていません。

サブサブカテゴリの処理がかなり怪しい気がします。(^^;


部分的なソースなので、ハッキリとした事は分かりませんでした。
下記を補足頂ければ、もう少し詳しい回答が書けると思います。

>@ITEMCATE = split(/\*/, $ITEMCATE); #他のファイルから読込
>@ITEMCATE2 = split(/\*/, $ITEMCATE2); #他のファイルから読込
>@ITEMCATE3 = split(/\*/, $ITEMCATE3); #他のファイルから読込
の具体的な内容。

sub form　を呼び出している部分のソース。
HTMLを出力している部分のソース。

Tacosan · Answer

いろんなところが変. とりあえず, 配列とスカラーの違いは理解すること.

karumakaruma · Answer

まず、どの様な配列を用意されているかと
表示処理をどの様に書かれているかという事を
示していただけないと、回答のしようがないと思います。

まぁ、一番思い当たるのは
それぞれのwhile内で同一の変数を使っているんじゃないかな
という事ですかね。

それも結果を見ただけでは判断しかねるわけですが・・・

venzou · Answer

ソースがないと分かりません。
ソースを補足してください。

while繰り返し処理で買い物かごカテゴリ階層表示作成

補足ありがとうございます。

＃２です。

>$ITEMCATE = 'カテゴリ１*カテゴリ２';

この回答への補足

＃１、４です。

＃１です、ソース拝見しました。

この回答への補足

いろんなところが変. とりあえず, 配列とスカラーの違いは理解すること.

まず、どの様な配列を用意されているかと

ソースがないと分かりません。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング