くだすれPerl（超初心者用）3

[0677 nobodyさん 2010/02/15(月) 18:09:17 ID:???]

だったらgrep使って手っ取り早く
$n= grep(/^log\d+\.tsv$/, readdir(DIR));