cgi014 「フォルダ操作　rmdir（削除）」（04/12/03 Fri）

まぁフォルダ作れるんだから削除もやっとかないと。

これも後で説明しますが、「ロック」のための前フリです。

☆　フォルダを作成する　rmdir　☆

#!/usr/local/bin/perl
$fnamelock = "lock";
$temp = mkdir($fnamelock, 0755);
if ($temp == 1){
rmdir($fnamelock);
$temp = 2;
}
print "Content-type: text/html\n\n";
print "$temp";
exit;

2行目：作成するフォルダの名前です。

3行目：mkdir( フォルダの名前, 属性 )で、これは、フォルダの作成に成功すると、

$temp = 1となり、失敗すると $temp = 0となります。

で、4行目で、$tempが0なら何もしませんが、1ならさっき作ったフォルダを削除し、

6行目で$tempを2にしています。

このCGIを実行して、ブラウザに0が表示されるならフォルダが作成されておらず、

2が表示されていたら、CGIと同じフォルダに「lock」というフォルダが一時的に作成され、

その後削除されております。

♪　結果表示　♪

2

★　Top　★