読者です 読者をやめる 読者になる 読者になる

ある年代のディレクトリにおいてあるファイル数を調べる

Perl

こんなディレクトリ構成になっていて

/Users/syou6162/dbcls/pne% ls                                                                              
1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006

1885-1995のディレクトリ配下にあるファイルの数と1996-2006以下にあるファイルの数がどれくらい違うかを調べたい。ということで。

ls **/*.txt | perl -nle 'print $_ if $_ =~ m/19(?:8[5-9]|9[0-5])\/.*?.txt/' | wc