Perlメモ: ファイルがテキストファイルかどうか調べる (-T)

下記のようにすると、ディレクトリ内のファイルを列挙するときに、ファイルの種類がテキストであるものだけを抽出することができます。

for (glob '*') {
    print "$_\n" if -T;
}