print "Readable \n" if -r _;
下划线_ 是个特殊的文件句柄
special file handle
https://stackoverflow.com/questions/46215052/what-is-single-underscore-in-perl-without-or
参考一下
print "Readable \n" if -r _;
下划线_ 是个特殊的文件句柄
special file handle
https://stackoverflow.com/questions/46215052/what-is-single-underscore-in-perl-without-or
参考一下