FTP環境しかない場合、どうしてもファイル所有権を変えたいなんてときに使うかもしれないプログラム。

#!/usr/bin/perl my $dir = './'; opendir DH, $dir or die "$dir:$!"; while (my $file = readdir DH) { next if $file =~ /^\.{1,2}$/; if(-f "${dir}${file}" && index($file,"ownerchg.cgi") == -1){ flock(FH, LOCK_EX); open(FH,"${dir}${file}"); @data = <FH>; close(FH); flock(FH, LOCK_NB); unlink "${dir}${file}"; flock(FH, LOCK_EX); open(FH,">${dir}${file}"); print FH @data; close(FH); flock(FH, LOCK_NB); chmod 0777, "${dir}${file}"; } } closedir DH; print "Content-type: text/html\n\n"; exit;

[ 更新:2007-03-10 22:19:17 ]