ねっとまがじん2 インターネットを楽しむ ねっとまがじん(ネットマガジン)  

 

管理専用CGI Perl メモ:ディレクトリ≫ディレクトリの削除 例2 このページを閉じる
2009年12月02日 02時02分16秒
ねっとまがじん
ディレクトリの削除 例2

 

 

ディレクトリ下にあるファイルを全て削除してからディレクトリをする例

$dir = "./xxxxx";
opendir DIR, $dir;
@files = grep { !m/^(\.|\.\.)$/g } readdir DIR;
close DIR;
$flag = @files;
if ( $flag ) {
foreach $file ( @files ) {
unlink "$dir$file";
}
}
rmdir $dir;

 

 

 

 

注意≫最初に登録されたトピックス(1件目)を削除すると管理フォルダも削除されます。
▼上記記事を削除したいとき。
 会員No(必須)
 パスワード(必須)

 

ねっとまがじん

ねっとまがじん2 ねっとまがじん ねっとまがじん