• 締切済み

ディレクトリ内のファイルを一覧表示するCGIを探しています

指定したディレクトリ内にあるファイルを一覧表示しリンクを自動で作ってくれるＣＧＩを探しています 自分で探してみたところ、いくつか見つけられたのですがなかなか条件にあうCGIが無かったので・・・ ↓こんなの探してます ・携帯でも見れるシンプルなもの ・ファイルの並び順(名前順や最新順)を設定できる 　↑観覧者が自由にソートするのではなくサーバー側(?)で決めれる ・1ページに表示するファイルの数を設定できる ・指定ディレクトリ内にディレクトリがあった場合それもリンク あとできれば画像ファイルを開いたときに「進む」で次のファイルに移動などの機能があればうれしいです どうかよろしくおねがいします・・・

  • CGI
  • 回答数1
  • ありがとう数4

みんなの回答

  • pick52
  • ベストアンサー率35% (166/466)
回答No.1

Perl CGIで作ってみました。 解釈を間違っていなければ以下の用件は満たしています。 1. 携帯でも見れるシンプルなもの (確認はしていませんが恐らく) 2. ファイルの並び順(名前順や最新順)を設定できる 　(自由にソートできるようにしてありますのでどうしてもいやなら 　自分で修正してみてください) 3. 1ページに表示するファイルの数を設定できる 4. 指定ディレクトリ内にディレクトリがあった場合それもリンク 　(ディレクトリ内のファイル一覧表示) > あとできれば画像ファイルを開いたときに「進む」で次のファイルに移動などの機能があればうれしいです これは意味が分からなかったので実装していません。 かなり要求しているものと全く異なる可能性もありますがせっかく 作ったので載せておきます。 #!/usr/bin/perl use strict; use CGI::Carp qw(fatalsToBrowser); use File::Spec; use File::Basename; my $cgi = &getreq(); my $script = (fileparse(__FILE__))[0]; print "Content-type: text/html; charset=shift_jis\n\n"; # 表示するディレクトリ my $dir = $cgi->{'dir'} || '.'; # Win のディレクトリ区切りをスラッシュに変換する # (MacOS 非対応) $dir =~ s/\\/\//g; # ディレクトリリストの取得 my $dir_list = &dir_list($dir); $dir .= '/' if($dir !~ /\/$/); # 絶対パスに変換しておく my $view_dir = File::Spec->rel2abs($dir); # 表示するファイルの上限数 (0=無制限) my $limit = 0; print <<'HTML'; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html lang="ja"> <head> <meta http-equiv="content-type" content="text/html; charset=shift_jis"> <title>ディレクトリのファイル一覧</title> </head> <body> <div><a href="#note">注意</a></div> HTML print "<table border=\"1\" bordercolor=\"black\" cellspacing=\"0\">\n"; print "<caption>表\示中のディレクトリ: $view_dir</caption>\n"; print &th($cgi, $view_dir); my $type = 'NAME'; if($cgi->{'type'} eq 'fn') { $type = 'NAME'; } elsif($cgi->{'type'} eq 'type') { $type = 'TYPE'; } elsif($cgi->{'type'} eq 'ts') { $type = 'TIME'; } # カウントフラグ (表示上限数用) my $i = 0; # ループ foreach(&sorting($dir_list->{'DIR'}, $type, $cgi->{'sort'}), &sorting($dir_list->{'FILE'}, $type, $cgi->{'sort'})) { my ($sec, $min, $hour, $mday, $mon, $year) = (localtime($_->{'TIME'}))[0 .. 5]; $year += 1900; $mon++; my $time = sprintf('%04d/%02d/%02d %02d:%02d:%02d', $year, $mon, $mday, $hour, $min, $sec); my $fn = $_->{'NAME'}; my $vdir = File::Spec->abs2rel("$view_dir/$fn"); if($_->{'TYPE'} eq 'DIR') { $vdir =~ s/\\/\//g; $vdir =~ s/(\/)/'%' . unpack("H2", $1)/eg; $fn = "<a href=\"$script?dir=$vdir&amp;type=$cgi->{'type'}&amp;sort=$cgi->{'sort'}\">$fn</a>"; } else { $fn = "<a href=\"$vdir\">$fn</a>"; } print "<tr>\n"; print "<td>$fn</td><td>$_->{'TYPE'}</td><td>$time</td>\n"; print "</tr>\n"; $i++; last if($limit && $limit <= $i); } print "</table>\n"; print <<'HTML'; <div id="note">注意: </div> <ul> <li>DIR: ディレクトリ</li> <li>BIN: バイナリファイル</li> <li>PLAIN: プレーンテキストファイル</li> <li>BIN/PLAIN は正確には判断できません</li> <li>LINK: シンボリックリンクファイル</li> </ul> </body> </html> HTML exit; # CGI リクエスト取得 sub getreq { # 環境変数取得 my $cgi = {}; my $query = ''; read(STDIN, $query, $ENV{'CONTENT_LENGTH'}) if($ENV{'CONTENT_LENGTH'}); $query = join('&', $query, $ENV{'QUERY_STRING'}); # デコード my @args = split(/&/, $query); foreach my $i (@args) { my ($name, $val) = split(/=/, $i); $val =~ tr/+/ /; $val =~ s/%(\w{2})/pack('C', hex($1))/eg; $val =~ s/(\x0d\x0a|\x0a|\x0d)+$//; $name =~ tr/+/ /; $name =~ s/%(\w{2})/pack('C', hex($1))/eg; $name =~ s/(\x0d\x0a|\x0a|\x0d)+$//; if(exists($cgi->{$name})) { $cgi->{$name} = [(ref($cgi->{$name}) eq 'ARRAY' ? @{$cgi->{$name}} : $cgi->{$name}), $val]; } else { $cgi->{$name} = $val; } } delete($cgi->{''}); return $cgi; } # ディレクトリリストの取得 sub dir_list { my $dir = shift || '.'; my $sort = shift; my @dir = (); my @file = (); opendir(DIR, $dir) || return; $dir .= '/' if($dir !~ /\/$/); foreach(readdir(DIR)) { my $time = (stat("$dir$_"))[9]; if(-d("$dir$_")) { # カレントディレクトリ ('.') は表示しない next if($_ eq '.'); push(@dir, { 'NAME' => $_, 'TYPE' => 'DIR', 'TIME' => $time}); } elsif(-f("$dir$_")) { my $type = ''; if(-T("$dir$_")) { $type = 'PLAIN'; } elsif(-B("$dir$_")) { $type = 'BIN'; } push(@file, { 'NAME' => $_, 'TYPE' => $type, 'TIME' => $time}); } elsif(-l("$dir$_")) { push(@file, { 'NAME' => $_, 'TYPE' => 'LINK', 'TIME' => $time}); } next; } closedir DIR; return { 'DIR' => \@dir, 'FILE' => \@file }; } # ソート sub sorting { my $sort = shift; my $key = shift; my $flg = shift || 'up'; return sort { $flg eq 'dn' ? $a->{$key} cmp $b->{$key} : $b->{$key} cmp $a->{$key} } @$sort; } # テーブルヘッダ sub th { my $cgi = shift; my $dir = File::Spec->abs2rel(shift); $cgi->{'type'} ||= 'fn'; $cgi->{'sort'} ||= 'dn'; my %header = ( 'fn' => 'ファイル名', 'type' => '種類', 'ts' => 'タイムスタンプ', ); my $sort = '<sup>' . ($cgi->{'sort'} eq 'up' ? '↑' : '↓') . '</sup>'; while(my ($key, $value) = each(%header)) { my $st = ($key ne $cgi->{'type'} || $cgi->{'sort'} eq 'dn' ? 'up' : 'dn'); $header{$key} = "<a href=\"$script?dir=$dir&amp;type=$key&amp;sort=$st\">$value</a>" . ($key eq $cgi->{'type'} ? "$sort" : ''); } return "<tr>\n<th>$header{'fn'}</th><th>$header{'type'}</th><th>$header{'ts'}</th>\n</tr>\n"; } 1; 結構いい加減ですのでもう少し修正できればよかったのですが...。 動作確認したのもWinのみですので他のOSでの動作は保証しません。 (特にMacOSのパス区切りに対応できていません)

ss2lv5
質問者

お礼

ありがとうございます！ こういうの探してました！ しかし設置してみたところDIRのリンクはできているのですがクリックしても中のファイルが一覧表示されません cgiの書き換える場所が分からずそのままサーバーに設置してしまったのがいけなかったのでしょうか・・・

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. CGI

関連するQ&A

  • ディレクトリ（ファイルの一覧）の表示

    現在サーバーを物置代わりに使用しているのですが、ファイル名を直接入力しなくては接続できません。 ディレクトリ（ファイル一覧）表示を可能にすることはできますでしょうか？ 加えて、下層のディレクトリではウェルカム指定が無いためHTMLファイルも直接入力しなくてはなりません。 そちらもウェルカムページが表示されるように設定を変更することはできますでしょうか？ 通常サーバーへのアクセスはFTPかTelnetで行っています。 サーバーはSunOS 5.8だったと思います。 私はサーバーの管理者ではありません。 よろしくお願いします。

  • 一覧を表示しCGI経由でファイル表示

    またまた質問させていただけないでしょうか？ 前回回答して頂いた方法でどうにか中盤まで書けました。有難う御座います。 またつっかかっている部分があります。 あるフォルダーにあるファイル名一覧を表示します。 そのファイル名をクリックするとCGI経由でファイル を開くというものなのですが・・・。 どうも上手くいきません。 流れとしては 1.ディレクトリ「master」の中身一覧を取得 2.それを表示 1.一覧の中のあるファイル名をクリック。 2.[CGI]あるファイルを読み込む。 3.あるファイルを表示。

    • ベストアンサー
    • Perl
  • CGI専用ディレクトリについて

    各サーバーごとにCGI専用ディレクトリ cgi-bin ディレクトリが用意されていたりCGI専用ディレクトリ名を特に指定していないサーバーがありますがディレクトリ名を指定していないサーバーの場合、仮に ディレクトリ名をabc-cgiとしてサーバーにアップした際にディレクトリの中は空のままでもいいのでしょうか？ 初期のCGI専用ディレクトリを設置した状態でのことです。 それとも設置した専用ディレクトリの中に何か入れて置いたほうがいいのか？ セキュリティー上？ 後にCGIのファイルやディレクトリをアップする積もりです。 CGIに詳しい方に、指導してもらえると助かります。 よろしくお願いします。

    • 締切済み
    • CGI
  • cgi-binディレクトリ.............

    私のサーバーでは今までANHTTPDを使っていたのですが、apacheでもやってみようと思いまして、apacheに入れ替えたのですが、今まではcgi-binディレクトリ以下に掲示板のアップロードの画像やhtml・swfファイルなどをいっしょに入れていたのですが、apacheに入れ替えるとそれらのファイルがアクセス権がないと言われ観覧できません。 ANHTTPDと同様にcgi-binディレクトリ以下でも画像やhtmlなどを見れるようにするにはどうすればよいでしょうか？ アドバイスよろしくお願いします。 （サーバーOSは WINDOWS XPです）

  • フォルダ下のディレクトリ一覧を表示

    HPで、フォルダを指定したりすると、 Index　＊＊ディレクトリ表示というのがありますが、 自動的にディレクトリ表示できるようには どんな設定あるいはどんなファイルを配置すれば よいのでしょうか？

  • ディレクトリーの一覧

    サーバーを借りています。デフォルトではディレクトリーの一覧表示をするのですが、htacessで一覧表示をしないようにしました。しかし、一部のディレクトリーのみ一覧表示をしたいと思っています。そのようなことはできますか。また、どうやればいいですか？たとえば、homeにABCDというフォルダがあるとき、それぞれのフォルダにhtacessをおいて別個に制御するのはめんどうなのでできれば避けたいです。home にhtacess をおいてそれで制御したいと思っています。

  • 素朴な質問：cgiの設置ディレクトリについて

    レンタルサーバーによりcgiの設置ディレクトリが指定（cgi-bin）されていたり、レンタルしたディレクトリ直下に置いても良いところとあると思います。この二つでは具体的にサーバー的にはなにが違うのでしょうか？思いつくのはセキュリティや負荷などが関係しているのだと思うのですが具体的に教えてもらえますか？この二つのサーバーの設定方法なんかも教えてください。

  • ディレクトリ一覧を表示

    unix環境で、ディレクトリやファイル一覧を表示するコマンドは「ls」ですが、 windows環境の「tree」コマンドのような視覚的に見やすく出力されるコマンドは ありませんか？ また、lsコマンドではファイルも出力されますが、ディレクトリ構成だけの一覧を 出力する方法ってありますか？オプションを見てもちょっと無さそうなのですが・・

  • cgi-binディレクトリ内のhtmlを有効にしたい

    度々お騒がせしております。 本日は、Apacheの設定について 伺いたく投稿させていただきました。 apacheの設定を終え、 一通り動作するようにできたのですが、 cgi-binディレクトリに置いたhtmlや jpg,gifといったcgi以外のファイルが 表示されません。 httpd.confによる cgi-binディレクトリの設定でどうにかなるものと思い、 色々調べてみたのですが、 いまいち設定方法がわかりません。 以下、私の環境です。 Apacche 1.3.20 htmlディレクトリ /var/www/html/ (775) cgi-binディレクトリ /var/www/html/cgi-bin/ (775) 現在のcgi-binディレクトリの設定 ScriptAlias /cgi-bin/ "/var/www/html/cgi-bin/" <Directory "/var/www/cgi-bin"> AllowOverride None Options ExecCGI Order allow,deny Allow from all </Directory> 以上、どうかよろしくお願いいたします。

  • ディレクトリの内容を表示させたい

    遠方の相手方にファイルを送る時にwwwサーバにアップしてやりとりしているのですが、ファイルごとにいちいちHTMLでリンクを貼る方法をとっています。 たまにディレクトリの中のファイルの内容が一覧で表示されているページをみかけるのですが、あれはどうすればいいのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する