First Weblog

« Linux | メイン | 逆順にソート »

2004年07月15日

標準モジュール File::Find を使ってディレクトリーのツリー表示する

#!/usr/bin/perl @dir1 = split (/\//, $ENV{'SCRIPT_FILENAME'}); pop @dir1; $dir1 = join ('/', @dir1); print "Content-type: text/html\n\n"; use File::Find; find(\&wanted, "$dir1"); sub wanted { @dir = split (/\//, $File::Find::name); pop @dir; unless (/^\.$/ || /^\.\.$/) {print "$_<br>\n";} }

投稿者 mkomu : 2004年07月15日 00:00

トラックバック

このエントリーのトラックバックURL:
http://mkomu.sakura.ne.jp/mt/mt-tb.cgi/32

このリストは、次のエントリーを参照しています: 標準モジュール File::Find を使ってディレクトリーのツリー表示する:

» badaruniter 99 post from badaruniter blog
all about badaruniter and top news [続きを読む]

トラックバック時刻: 2008年03月26日 01:01

» badaruniter 61 post from badaruniter blog
all about badaruniter and top news [続きを読む]

トラックバック時刻: 2008年03月26日 08:51

» Mileage Between Cities from Mileage Between Cities
How did you figured that out? Wish I were you. [続きを読む]

トラックバック時刻: 2010年09月01日 01:57

» dig this from dig this
First Weblog: 標準モジュール File::Find を使ってディレクトリーのツリー表示する [続きを読む]

トラックバック時刻: 2013年12月13日 21:45

» similar internet page from similar internet page
First Weblog: 標準モジュール File::Find を使ってディレクトリーのツリー表示する [続きを読む]

トラックバック時刻: 2013年12月16日 20:14

» test 400 from test 400
First Weblog: 標準モジュール File::Find を使ってディレクトリーのツリー表示する [続きを読む]

トラックバック時刻: 2014年02月17日 04:38

コメント

コメントしてください

コメント登録機能が設定されていますが、TypeKey トークンが設定されていません。