mkdirを使う
http://perl.misty.ne.jp/12.html#a
1 / 2| 次のページ »
ID:1131339045
ID:1131338863
#! /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"; } }
ID:1119596779
ID:1097249660
— posted by midilin @ 12:34AM
| Comment (0)
| TrackBack (0)
ID:1097142124
— posted by midilin @ 06:42PM
| Comment (0)
| TrackBack (0)
ID:1097141992
— posted by midilin @ 06:39PM
| Comment (0)
| TrackBack (0)
ID:1097141969
— posted by midilin @ 06:39PM
| Comment (0)
| TrackBack (0)
ID:1097141935
— posted by midilin @ 06:38PM
| Comment (0)
| TrackBack (0)
ID:1097125878
— posted by midilin @ 02:11PM
| Comment (0)
| TrackBack (0)
最近のコメント