師匠の散歩

きままにPerlでも

chmod実行

ファイル一覧を取得し、chmod を実行する。/ chmod701.cgi

本スクリプトはatpagesのWEBアップロードで利用するパーミッション変更プログラムです。 FTP環境であれば拡張子ごとにパーミッションを設定してアップロードできますが、WEBアップロードでは実行権は後からでないと変更ができず面倒に感じていました。 そのため、拡張子が.cgiのファイルを一括してパーミッション変更できるものを作成しました。

パーミッション変更
chmod701.cgi?mode=701
リスト
chmod701.cgi?mode=date 新規保存順リスト表示
chmod701.cgi?mode=size サイズ大順リスト表示
chmod701.cgi?mode=list ファイル名順リスト表示

ソース

# --------------------------------------------------------------
# ファイル一覧を取得し、モード変更を行う
# 特定の拡張子を、統一のモードに変更する
# --------------------------------------------------------------
my @files = glob "*.cgi";    # 拡張子 cgi を取り込む
foreach (@files) {
 chmod 0701 ,"$_";           # ファイルを全て 0701にモード変更する
}

chmod701.cgi // Topに戻る // indexに戻る
Copyright(C) 2009-2021 Grandmaster Last up : 2020/09/18