選択リストのリンク化

質問

はじめまして、こんにちは。

現在CGIによる検索フォームを作成中なのですが、
例えば、
・フォーム(1)から車のメーカーを選択すると
　フォーム(2)に形状(ワゴン等)が選択可能になり
　形状を選択するとフォーム(3)に車の名前が表示される
　ような物を作りたいです。

メーカー等はサーバーにフォルダで区切られており、
登録する車が増えた場合フォルダを増やすとweb上に反映できるようにしたいです。

フォルダ階層
トヨタ－１ＢＯＸ－アルファード　←フォルダ
　　　　　　　　－ハイエース　　←フォルダ
　　　－ステーション－イプサム　←フォルダ
　　　　　　　・
　　　　　　　・
　　　　　　　・

↑↑↑↑
このようにフォルダ階層でひも付いているものをそのままweb上でリンクリストととして選択できるようにしたいのですが可能でしょうか？

サーバー：HP-UX
開発言語：Perl

以上、参考サンプルのURLでも構いませんので、
ご回答の程よろしくお願いいたします。

回答No.1

Dpop · ベストアンサー

Web屋です。OkWebの様なサイトを設計, 開発する仕事をしています。

階層化されたディレクトリのリストを作れればどうにかなりますね。

こんな風に行う事もできます。

#!/usr/bin/perl

use strict;

my($start, @work, @list, $i);
$start = 'a';
@work = @list = ();

&dirlist($start, \@work);
for ($i = 0; $i <= $#work; $i++) {
if ($work[$i] =~ m|^([a-z]+)/([a-z]+)/([a-z]+)$|) {
my(%w);
($w{'b1'}, $w{'b2'}, $w{'b3'}) = ($1, $2, $3);
push(@list, \%w);
}
}

for ($i = 0; $i <= $#list; $i++) {
print '大分類'. $list[$i]{'b1'}. ' ';
print '中分類'. $list[$i]{'b2'}. ' ';
print '小分類'. $list[$i]{'b3'}. "\n";
}

exit(0);

sub dirlist($$) {
my($dir, $list) = @_;
my($file, $dfile, $DIR);

opendir($DIR, $dir);
foreach $file (readdir($DIR)) {
$dfile = $dir. '/'. $file;
if ((-d $dfile) && (($file ne '.') && ($file ne '..'))) {
&dirlist($dfile, $list);
push(@{$list}, $dfile);
}
}
closedir($DIR);
}

__END__;

不明点があれば再度質問してください。

お礼

ご回答ありがとうございます。

早速、解析しながら試してみたいと思います。