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

カテゴリー » 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

カウンター