すべてのサブディレクトリで拡張子が.logのファイルを再帰的に検索する

Question

現在のディレクトリとサブディレクトリで.log拡張子のファイルを再帰的に検索するTCLのコマンドは何ですか？

私はglob-type f * .logを試しましたが、現在のディレクトリのみを調べます。

Answer 1

Tcllibのfileutilパッケージは、この種のものに最適です。特に、fileutil::findはあなたが望むものを正確に行います。

package require fileutil 

# We need a helper procedure here. This is a trivial wrapper round [string match] 
proc is_log {name} { 
    return [string match *.log $name] 
} 
set log_files [fileutil::find [pwd] is_log]