Perl中的if（-f <filename>）會做什麼？

Question

我碰到這行代碼：

if(-f <filename>) { ... } 

-f出現測試文件名是否存在，但我不知道。谷歌目前沒有幫助（谷歌很難「-f」），也沒有我的Perl書籍。

任何人都可以請指教？

Answer 1

參見perlfunc。

它列出了所有Perl的內置功能，包括 「文件測試」 的：

-X FILEHANDLE 
-X EXPR 
-X DIRHANDLE 
-X 

哪裏-X爲下列之一：

-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 (Unix, may differ for other platforms) 

Answer 2

查找Perl file test operators。

Answer 3

它測試<filename>指定的對象是否是普通文件（與二進制或作爲目錄等相對）。

Answer 4

在Unix中，目錄可以包含以下類型的文件：

• 平原（你會考慮的文件）
• 目錄
• 命名管道
• 名爲socket
• ..

-f測試p rovided名稱引用了一個純文件的文件。如果文件不存在，它將返回undef（錯誤ENOENT），或者如果文件存在但它不是普通文件（例如，如果它是目錄）則返回其他一些假值。

-X operators

Answer 5

if (-f <filename>) { ... }

看來，無論是我誤解了問題，否則其他人了。

首先，讓我們做一些假設。

1. 讓我們假設你有沒有超載所有-X前綴元運算符（它要麼全部要麼都不中），

2. 讓我們還假設你有沒有超載<> CIRCUMFIX迭代算子。

假設二者上面給出這兩個已知條件的建議立即進行刪除保持，則該符號<filename>會做scalar readline(*filename) - 這取決於$/值 - 然後傳遞結果返回給filetest操作者用於隨後的評價，通常但不一定是通過stat（2）。這意味着你最好有一個文件句柄，名字爲filename，這樣才能工作，除非真正涉及到深度的魔法。

如果還將爲<$filename>這樣做，除了現在$filename是間接句柄而不是像filename這樣的直接句柄。再次，$/受到尊重。使用與它相關的文件句柄正確的文件名實際上是我所做的所有術語。例如：

our $fn = "/etc/termcap"; 
open($fn, "<", $fn) || die "can't open $fn: $!"; 

這樣的warn和die消息居然告訴我，該文件的名稱。例如：

while (<$fh>) { 
    warn "oops" if whatever; 
} 

會告訴我行號的文件的行號和名稱。

現在，如果<⋯>的操作數背離允許的無支配的定向對象的規則，即以零或更多美元符號爲前綴的空白字符，那麼它不是迭代操作符，而是通配符定義符。即使沒有通配符也是如此。它只是違反Perl的著名規則Datives，那然後觸發備用

這意味着當且僅當filename不與零個或多個前導美元符號合法的裸詞 - 如示例/etc/termcap，/tmp,*.[Cchy],{,/usr}/bin/c?或~/Documents - 然後調用File::Glob::bsd_glob函數指南中那個熟悉的舊同名運算符，而只是在您提供此類函數時，您會期望得到如此有用且常用的函數適當的論據。

這裏有很多例子，顯示答案排序問題上面引述部分其實就是在問：

use v5.10; # for the say feature, but not needed for conglobulation 

if (-d <~joebob>    ) { say "joebob has a home"     } 
if (-d <~joebob/.opera>   ) { say "joebob has an opera directory"  } 
if (-d <~joebob/.ssh>   ) { say "joebob has an ssh directory"  } 

if ($n = grep {-e} <~joebob/.*rc>) { say "joebob has $n RC files"   } 

if (-f <~joebob/.exrc>   ) { say "joebob has a vi config file"  } 
if (-f <~joebob/.profile>  ) { say "joebob has a sh profile"   } 
if (-f <~joebob/.bashrc>  ) { say "joebob has a bash config script" } 
if (-f <~joebob/.cshrc>   ) { say "joebob has a csh config script" } 
if (-f <~joebob/.log{in,out}*> ) { say "joebob has csh login/out scripts" } 

if (-S </tmp/.X*/X*>   ) { say "I smell an X11 socket"    } 

if (-t STDIN && -t STDOUT  ) { say "smells pretty tty to me"   }