Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

配列の要素数とフィルタ後の要素数を比較

配列の中に、ファイルパスが入っていて、それらのファイルが全て既に存在するときだけその場で処理を返す。

my @files = ('./aaa.txt', '/tmp/bbb.txt', '~/ccc.txt');

if (@files == grep -f, @files) {
  return;
}

割とスマート。