one-liner to find the GBK *.txt files in /tmp

perl -MFile::Find::Rule -le 'print for File::Find::Rule->file()->name(q(*.txt))->grep(q(((?:[\xB0-\xF7][\xA1-\xFE]){1,})))->in(q(/tmp))'

Posted via email from purl's posterous