Perlメモ: ファイルサイズを取得する (-s)

指定したファイル名（下記の例では $filename）のファイルのサイズを調べるには以下のようにします。 得られる値の単位はバイトです。

my $filesize = -s $filename;

-s を比較演算子と一緒に使用すると、ファイルサイズによる絞込み検索を行えます。

my @files = glob '*';
my @files2 = grep { (-s) < 1024 } @files;