シンクグラフィカ札幌

テクニカルノート

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

2007-03-10 22:19:17

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

#!/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;

perlで文字列の置換 perlでgrep使ってカテゴリなどを抽出する時のwhile
新規コメント出力エリア

エラーメッセージ出力