当前位置: 首页 > 文档资料 > Perl 入门教程 >

-X

优质
小牛编辑
135浏览
2023-12-01

语法 (Syntax)

-X FILEHANDLE
-X

定义和用法 (Definition and Usage)

文件测试,其中X是下面列出的字母之一。 他的一元运算符接受一个参数,无论是文件名还是文件句柄,并测试相关文件以查看是否有关于它的事情。

如果省略参数,则测试$ _

返回值 (Return Value)

  • 如果条件为真,则为1
  • 如果条件为假,则为0
-r	File is readable by effective uid/gid.
-w	File is writable by effective uid/gid.
-x	File is executable by effective uid/gid.
-o	File is owned by effective uid.
-R	File is readable by real uid/gid.
-W	File is writable by real uid/gid.
-X	File is executable by real uid/gid.
-O	File is owned by real uid.
-e	File exists.
-z	File has zero size (is empty).
-s	File has nonzero size (returns size in bytes).
-f	File is a plain file.
-d	File is a directory.
-l	File is a symbolic link.
-p	File is a named pipe (FIFO), or Filehandle is a pipe.
-S	File is a socket.
-b	File is a block special file.
-c	File is a character special file.
-t	Filehandle is opened to a tty.
-u	File has setuid bit set.
-g	File has setgid bit set.
-k	File has sticky bit set.
-T	File is an ASCII text file (heuristic guess).
-B	File is a "binary" file (opposite of -T).
-M	Script start time minus file modification time, in days.
-A	Same for access time.
-C	Same for inode change time

例子 (Example)

尝试使用某个文件的以下示例。

stat($filename);
print "Readable\n" if -r _;
print "Writable\n" if -w _;
print "Executable\n" if -x _;
print "Setuid\n" if -u _;
print "Setgid\n" if -g _;
print "Sticky\n" if -k _;
print "Text\n" if -T _;
print "Binary\n" if -B _;
# Another way of testing
if( -e $filename ){
   print " File $filename exists\n";
}