$fs->traverse('/foo')->filter(sub ($name, $dir) { $name !~ /^\./; });
$fs->traverse('/foo')->filter(sub { $_[0] !~ /^\./; });
是否有任何选项可以保持第一行不变?因为使用 -pbp perltidy 因为签名功能将其分成 5 行。
perltidy -fnl
(“如果您不希望对脚本中代码行中的换行符进行任何更改”)似乎可行,但我不确定您希望其余代码的外观如何。
https://metacpan.org/pod/distribution/Perl-Tidy/bin/perltidy#Line-Break-Control