我最近实现了一个新的 NAS 文件管理器,在将其挂载到 Linux 服务器后,Perl 解释器(版本 5.005_03)无法识别该挂载上文件的存在:
[root@server ~]# stat /newmount/testfile
File: `/newmount/testfile'
Size: 0 Blocks: 0 IO Block: 65536 regular empty file
Device: 48h/72d Inode: 9262698097446760736 Links: 1
Access: (0644/-rw-r--r--) Uid: ( 500/ testuser) Gid: ( 500/ testuser)
Access: 2017-02-22 16:44:21.218314000 +0200
Modify: 2017-02-22 16:44:21.218314000 +0200
Change: 2017-02-22 16:44:21.218314000 +0200
[root@server ~]# perl -e 'print "File Exists\n" if -e "/newmount/testfile";'
[root@server ~]#
这里有趣的是:
当我尝试使用更新版本的解释器(如 perl,v5.8.8)时,它可以工作:
[root@server ~]# perl -e 'print "File Exists\n" if -e "/newmount/testfile";'
File Exists
[root@server ~]#
我在旧的 Perl 上缺少什么?
提前致谢!