perlで無理やりファイルの所有権を変える(テクニカルノート)

perlで無理やりファイルの所有権を変える

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

2007-03-10 22:19:17

#!/usr/bin/perl[cr][cr]my $dir = './';[cr][cr]opendir DH, $dir or die "$dir:$!";[cr]while (my $file = readdir DH) {[cr]\tnext if $file =~ /^\.{1,2}$/;[cr]\tif(-f "${dir}${file}" && index($file,"ownerchg.cgi") == -1){[cr]\t\tflock(FH, LOCK_EX);[cr]\t\t\topen(FH,"${dir}${file}");[cr]\t\t\t\t@data =;[cr]\t\t\tclose(FH);[cr]\t\tflock(FH, LOCK_NB);[cr]\t\tunlink "${dir}${file}";[cr]\t\tflock(FH, LOCK_EX);[cr]\t\t\topen(FH,">${dir}${file}");[cr]\t\t\t\tprint FH @data;[cr]\t\t\tclose(FH);[cr]\t\tflock(FH, LOCK_NB);[cr]\t\tchmod 0777, "${dir}${file}";[cr]\t}[cr]}[cr]closedir DH;[cr][cr]print "Content-type: text/html\n\n";[cr]exit;