这个Perl foreach做了什么？

Question

我很难理解这个foreach的作用,我是perl编程的新手

-e && print ("$_\n") foreach $base_name, "build/$base_name";

这里构建是目录.谢谢

Answer 1

不是很漂亮的代码,有人把你留在那里.:(

两者之一

for ($basename, "build/$basename") { say if -e }

要么

for my $file ($basename, "build/$basename") {
     say $file if -e $file;
}

会更清楚.

Answer 2

检查文件是否存在,如果存在,则打印其名称.

它可以以更清晰的方式编写.

它迭代$ base_name,然后在文件名在$ base_name中时构建/ $ base_name