サーバー内のファイルを検索するのにKentWebさんのwwwsrch.cgiを利用しています。
#
# すべてのファイルをなめ回す
#
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
foreach $file (@filelist) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
}
#
# ファイルの中身を検索する
#
# 指定していない拡張子のファイルは無視する
$suffix = ".html .cgi .pl";
$fname = substr($target, rindex($target, "."));
if ($suffix{$fname} != 1) {
return;
}
↑の条件に30日以上古いファイルを無視するように改造することはできないでしょうか?
検索対象ファイルが数十万以上と莫大に増加してきたため、最新のファイルのみ検索対象にできればと考えております。
No.1ベストアンサー
- 回答日時:
変更時刻のファイルテスト演算子-Mが使えそうな。
こんな感じ:next unless -M $file < 30;
何を持って「30日以上」なのか不明なのではずしてるかも。
参考URL:http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod
ご回答有難うございます。
質問直後に-Mとifを使って何とかできたのですが、
お教えいただいた書き方の方が、綺麗ですので、
早速使わせてもらいました。
30日のところは$FORM{'day'}にして、フォームで指定するようにしました。
unlessのような書き方は使ったことがなかったため大変勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP imageフォルダに、画像をリサイズして保存する時のファイル名を変更したい 1 2023/05/30 11:39
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルの足し算(pascal)
-
【PHP】アクセス過多でファ...
-
ExcelをCSV書き出す場合のシー...
-
ReadLineでの読み出し行を指定する
-
VBAでCSVファイルの特定行を書...
-
awkスクリプトでダブルクォーテ...
-
エクセルVBA コードが同じでも...
-
window.open でのファイル指定方法
-
タブの色を変更する方法
-
CSVデータの編集の際の重複チェ...
-
サーバーにある特定の拡張子フ...
-
指定したフォルダにアップロード
-
batファイルでrenameができませ...
-
パスから最後のディレクトリだ...
-
Perlの初心者です。2重ループ...
-
Perlの質問:行と列を入れ替え...
-
Perl<->Oracle間での文字化けに...
-
perlでファイル内の文字列を置...
-
close()で例外が投げられる理由
-
Perlについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
fopenでディレクトリ内の全ファ...
-
ファイルロックの解除方法
-
TSVファイルを読み込んでCSV形...
-
[perl] perlで書き込み中に、PC...
-
Cookieが保存できない。
-
最新のファイルのみ検索
-
perlをデスクトップのショート...
-
flockについて
-
perlでCSV形式ファイルのア...
-
ファイルの結合
-
unixでのファイルロックの方法...
-
CGI のモジュールをつかってフ...
-
ファイルがオープンできない
-
ファイルディスクリプタとは?
-
file_exists関数について
-
1行がやたら長いテキストをバッ...
-
ファイルの存在確認をしたい
-
HTMLの中にCGIファイルリンク
-
perl の printでのファイルへの...
-
Perl 処理速度について
おすすめ情報