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

 

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

 

 

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

$w_dir = "./xxxxx";
opendir(DIR,"$w_dir") || &error("$w_dir が開けません!");
while ($filename = readdir DIR ) {
 $w_ck = 0;
 if ($filename eq '.') {$w_ck = 1;}
 if ($filename eq '..') {$w_ck = 1;}
 if ($w_ck eq 0) {
  $w_del = "./$p_vdir/$p_dir/$filename";
  unlink ($w_del); # ファイルの削除
 }
}
closedir(DIR); # ディレクトリclose
#--- ディレクトリの削除 ディレクトリが空でないと失敗
$rc = rmdir $w_dir;
if ($rc ne 1) { &error("トピックスディレクトリの削除ができません!code=$rc:$!");}

 

 

 

 

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

 

ねっとまがじん

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