テキストファイルを見つける

findのオプションにはなさそうだけど、Perlのファイルテスト演算子には-Tがあります。

$ find . | perl -nle 'print if -f && -T'
./access_counter.pl
./count.dat
./db_login_test.php
./index.html
...


他にどんなファイルテスト演算子があるかはperldocで。

$ perldoc -f \-x