ファイル自動削除のためのサーバースクリプト
2022-01-29 10:37:29
マッチングパス対応 マッチングファイル名対応 長期未アクセス時の自動クリーンナップ対応
コピーコード
コードは以下の通りです。
# for each system cleanup file script, filepath reg_filename fileatime
#author [email protected]
#date 2013-8-22 14:51:52
#! /bin/sh
if [ $# -eq 0 ];then
echo "Usage: sh auto_clear_file.sh clear_filepath clear_regfilename filecreatetime"
echo "eg: sh auto_clear_file.sh /tmp/log/ user_log -7day"
exit
fi
filepath=$1
regfilename=$2
if [ "-$3" = "-" ];then
filectime=`date -d -7day '+ %s'`
else
filectime=`date -d $3 '+ %s'`
fi
log=`ls $filepath | grep $regfilename`
echo $log
for file in ${log}
do
echo $file
fileatime=`stat -c %X ${filepath}${file}`
if [ ${fileatime} -lt ${filectime} ]; then
opt=`rm -f ${filepath}${file}`
echo $opt
fi
done
関連
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
PerlとStrawberryPerl、ActivePerlの違いを詳しく解説
-
PerlとJSの比較 (配列、ハッシュ)
-
PerlでローカルタイムからUNIXタイムスタンプに変換する方法
-
Perlのコマンドラインプログラミングでよく使われるパラメータを1文にまとめたもの
-
Perlのハッシュの使い方チュートリアル
-
[解決済み] Perl で bash コマンドを使用して文字列をエコーするにはどうすればよいですか?
-
[解決済み] perl で awk コマンドを実行する
-
[解決済み] Perlでディレクトリを丸ごとコピーするにはどうしたらいいですか?
-
[解決済み] Perl の "make_path" と "remove_tree" は、オプションハッシュが空の場合、異なる結果になります。
-
問題発生 ----DBI ODBCエラー Perlスクリプトを実行中、エラー:[unixODBC][Driver Manager] データソース名が見つからない、およびデフォルトがない