ファイルを消すCGIです。
/filetest の下にあるファイルを、1つ1つ消しています。
動作例
ここを押すと、実行結果がわかります。↓
/cgi-bin/unlink.cgi
/filetest にファイルを作るには、以下を参照します。↓
/cgi-bin/fwrite.cgi
/filetest の状態を知るには、以下を参照します。↓
/cgi-bin/dir.cgi?dir=../filetest
ソースコード
readdir で /filetest の下のファイル一覧を取得し、
unlink で1つ1つファイルを消しています。
unlink の引数はリストなので、一覧をそのまま渡しても動作するはずです。
#!/usr/local/bin/perl
use CGI;
use strict;
my $TESTDIR = "../filetest";
my $cgi = new CGI;
$cgi->charset('EUC-JP');
print $cgi->header, $cgi->start_html('Unlink');
print $cgi->h1("Unlink : $TESTDIR");
if(opendir(DIR, $TESTDIR)) {
print "<p><table>\n";
my @files = readdir(DIR);
my $file;
foreach $file (sort @files) {
next if $file eq ".";
next if $file eq "..";
my $r = unlink("$TESTDIR/$file");
if($r) {
print "<tr><td>$file:</td><td>消しました</td></tr>\n";
} else {
print "<tr><td>$file:</td><td>消せません</td></tr>\n";
}
}
closedir(DIR);
print "</table></p>\n";
} else {
print "<p>$TESTDIR: ないか開けません</p>";
}
print $cgi->end_html;
▼ 個人的宣伝
- LINUXサーバーインストール(FedoraCore4)
Oracle10gのバックアップを本気で理解し実践 - FC4 や Oracle のインストールの仕方〜管理方法まで、詳しく載っています。 SearchManには情報がもりだくさんです。
- いますぐ実践!Linuxシステム管理
- システム管理初心者の方を対象に、システム管理のノウハウをお知らせします。
- 毎日栗の絵を描いています。
退屈なとき、癒されたいときなどに、ご覧ください。:-)