perl - 为目录中的每个 .ly 文件运行 lilypond

Question

我知道我可以通过 Perl 文档来编写这个，但我怀疑有一个简单的单行代码可以完全按照我的意愿进行操作，而这将花费我太长时间才能弄清楚。

我有一段音乐的主要 .ly 文件，以及一组较小的 .ly 文件来生成部分和指挥的分数。

所以，我想做的基本上是这样的：

for each file in directory
   if filename ends in ".ly"
      lilypond filename
   endif
endfor

感谢 Similar Questions，我刚刚找到了 .BAT 的答案，但我想知道下次如何在 Perl 中完成。：-） 谢谢！

Answer 1

use autodie qw( :all );
opendir(my $dh, $dir_qfn);
while (defined( my $file = readdir($dh) )) {
   system('lilypond', "$dir_qfn\\$file")
      if $file =~ /\.ly\z/i;
}