检查文件是否在Perl中可写

Question

Perl相当于这个bash脚本会是什么？

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

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

Answer 1

那将是-w operator：

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