下記の画像一覧のcgiを下位フォルダをリンク表示して下位フォルダにも進んでいけるようにしたいのですが、どのようにしたらよいでしょうか。下記も教えていただいたものを利用している素人です。よろしくお願いいたします。
$width_height = 'WIDTH=40 HEIGHT=55';
$dir = './';
####################
print "Content-type: text/html;CHARSET=x-sjis\n\n";
print "$dir の jpg一覧<P>\n";
print "<TABLE BORDER>\n";
print "<TR><TH>イメージ<TH>ファイル名<TH>サイズ(k)\n";
opendir(DIR, "$dir");
while ($_ = readdir(DIR)) {
if (substr($_,-4,4) eq "\.jpg") { # jpgだけ出力
($size) = (stat("$dir/$_"))[7]; # ファイルサイズ所得
print "<TR>";
print "<TD><A HREF=\"$dir/$_\" TARGET=\"jpg\"><IMG SRC=\"$dir/$_\" $width_height></A>"; # 画像(リンクあり)
print "<TD><A HREF=\"$dir/$_\" TARGET=\"jpg\">$_</A>"; # ファイル名(リンクあり)
print "<TD ALIGN=RIGHT>$size\n"; # サイズ
}
}
closedir(DIR);
print "</TABLE>\n";
exit:
No.2ベストアンサー
- 回答日時:
こんなかんじにでもなるんでしょうか...
--------------------------------------
#! /usr/bin/perl
$width_height = 'WIDTH=40 HEIGHT=55';
$dir = $ARGV[0];
if ($dir eq "" ){ $dir='.'};
####################
print "Content-type: text/html;CHARSET=x-sjis\n\n";
print "$dir ~ jpg~~<P>\n";
print "<TABLE BORDER>\n";
print "<TR><TH>イメージ<TH>ファイル名<TH>サイズ(k)\n";
opendir(DIR, "$dir");
while ($current_file = readdir(DIR)) {
if (substr($current_file,-4,4) eq "\.gif") {
($size) = (stat("$dir/$current_file"))[7];
print "<TR>";
print "<TD><A HREF=\"$dir/$current_file\" TARGET=\"jpg\"><IMG SRC=\"$dir/$current_file\" $width_height></A>";
print "<TD><A HREF=\"$dir/$current_file\" TARGET=\"jpg\">$current_file</A>";
print "<TD ALIGN=RIGHT>$size\n";
} elsif ( $current_file !~ /[\.]+/ && stat($current_file) && -d _ ) { # ., .. は除く。 statして directoryかどうかチェックする
print "<TD><A HREF=\"$0?$dir/$current_file\" TARGET=\"jpg\">$current_file</A>"; # 本来は$0 でなくてスクリプトの呼び出しを書く。
}
}
closedir(DIR);
print "</TABLE>\n";
exit:
--------------------------------------
この回答への補足
早速の回答ありがとうございます。ディレクトリ名が見事に表示されています。このディレクトリ名のリンクをクリックすると、そのディレクトリの画像が表示されるようにしたいのです。貼り付けCGIばっかり使っているので、改造もできませんので、よろしければさらにコメントいただけると助かります。
補足日時:2000/12/26 12:17No.1
- 回答日時:
下位フォルダというのを下のディレクトリという意味で解釈して回答しますが、二行目の文で指定されている$dir='./';の部分を$dir='指定したい下のフォルダ名/'という具合に変えてみてはどうでしょうか?
外していたらごめんなさい
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP imageフォルダに、画像をリサイズして保存する時のファイル名を変更したい 1 2023/05/30 11:39
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- JavaScript jQueryで同じクラス名のものを別物として扱いたい 1 2022/06/17 14:14
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- HTML・CSS (Javascript)印刷するファイルに応じて印刷プレビュー画面で用紙を自動的に切り替えたい!! 2 2022/04/11 12:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
perlで2次元配列をサブルーチ...
-
perlでリテラル値はメモリにど...
-
INDIRECT 横に再度抽出したい
-
Perl 重複カウント 上位3名
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
perlプログラミング 空白行削除
-
perlについて
-
perlのrequireの動き方について...
-
perlの構文でカンマの意味が分...
-
perlについての質問
-
perlのプログラミング 部分入れ...
-
perlをバージョンアップしたら...
-
Perl の外部モジュールの利用方法
-
perl このテキストファイルを簡...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら...
-
openした後、closeしないでプロ...
-
Perlで特定文字列から特定文字...
-
Wallpaper Engineでおすすめの...
-
Perlのエラーについてご教授く...
-
アルファベットに付いて質問し...
-
Strawberry Perl for Windows ...
-
bashスクリプト
-
テキストファイルで提出とは?
-
Perl の外部モジュールの利用方法
-
#!/usr/bin/perlで書きだしたCG...
-
Windows10においての『Perl』の...
-
perlのflock関数でロックをかけ...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字...
-
英数文字列のうちの数値を4桁に...
おすすめ情報