Today: Yesterday: Total: Online:
カテゴリー
その他
  • RSS1.0
  • RSS2.0
  • atom0.3
  • valid XHTML1.0
  • valid CSS2
  • Credit
RSSリーダーで購読する | この日記のはてなブックマーク数 | プロフィール
コメントが一番多い記事（233コメント）：人の心理の裏をかくホームページ集客術：リピータになってもらうためには
ツイートが一番多い記事（94ツイート）：ちょっと待て！twitterやfacebookに子供の写真を掲載する親達への警告
いいねが一番多い記事（574いいね）：facebookスパムに要注意。なりすましの見分け方とアカウント乗っ取りの手口（2013年度版）
2005年11月のエントリー 11 件中 11-11 件を ボックス表示 ⇔ リスト表示

前の 10 件 | Main

カテゴリー » Perl（CGI） November 07, 2005

ディレクトリの中を表示するCGI(perl) ID:1131338863


http://script.lovely.to/bbs/infolng.cgi?print+200411/04110003.txt

#! /usr/local/bin/perl

print "Content-type: text/html\n\n";

opendir(DIR, "./");
@dir_array = readdir(DIR);
closedir(DIR);

foreach (@dir_array) {
next if $_ eq "." or $_ eq "..";

if(!opendir(DIR, "$_")){
print "$_
\n";
}
}
1 / 2| 次のページ »
— posted by midilin @ 01:47PM