Bash 检查文件是否可在Perl中写入

这个bash脚本的Perl等价物是什么

for file in *
do 
    if [ -w $file ] ; then 
        echo $file
    fi
done

我正在尝试查看哪些文件是可写的。

这将是：

---

还有

-w

怎么样？请参见

perldoc-f-w

在询问此问题之前是否尝试过

-w

？：-）@戴夫·克罗斯，糟糕的建议。

for my $file (glob '*') {   
    if (-w $file) {
        print "$file\n";
    }   
}