¿Qué hace if (- f) en Perl?

En Unix, los directorios pueden contener los siguientes tipos de archivos:

• Simple (lo que considerarías un archivo)
• Directorio
• Tubería con nombre
• Socket con nombre
• ...

-f prueba si el nombre proporcionado hace referencia a un archivo que es un archivo plano. Devolverá undef (error ENOENT) si el archivo no existe, o algunos otros valores falsos si el archivo existe pero no es un archivo simple (por ejemplo, si es un directorio).

-X operadores

Busque Operadores de prueba de archivos Perl.

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

Parece que o he malinterpretado la pregunta, o todo el mundo lo ha hecho.

Primero, hagamos algunas suposiciones.

1. Supongamos que no ha sobrecargado todos los operadores unarios de prefijo -X (es todos o ninguno de ellos),

2. Supongamos también que no ha sobrecargado el operador de iteración circunfijo <>.

Suponiendo que ambos de esos dos givens dado lo anterior shoul hold, entonces la notación <filename> hará un scalar readline(*filename) - que depende del valor de $/ - y luego pasará ese resultado al operador filetest para su posterior evaluación, generalmente pero no necesariamente por medio de stat (2). Eso significa que es mejor tener un filehandle abierto con el nombre de filename para que esto funcione, a menos que se trate de una verdadera magia profunda.

If también hará esto para <$filename>, excepto que ahora $filename es un identificador indirecto en lugar de uno directo como filename. De nuevo, $/ es respetado. El uso de un nombre de archivo propio para el filehandle asociado con él es en realidad algo que hago todo el término. Por ejemplo:

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

De esa manera los mensajes warn y die realmente me dicen el nombre del archivo. Por ejemplo:

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

Me dirá el número de línea y el nombre del archivo en el que opté.

Ahora, si el operando de <⋯> se desvía de las reglas para objetos dativos permitidos sin corchete, es decir, un prefijo bareword por cero o más signos de dólar, entonces no es el operador de iteración sino el comodín burster. Esto es cierto incluso sin comodines. Solo tiene que violar la famosa Regla de Dativos de Perl, y eso luego desencadena la alternativa {[26]]}

Esto significa que si y solo si filename no es un bareword legal con cero o más signos de dólar principales , como por ejemplo /etc/termcap, /tmp, *.[Cchy], {,/usr}/bin/c?, o ~/Documents - entonces ese viejo operador de conglobulación familiar en la guía del File::Glob::bsd_glob se llama a la función en su lugar, con exactamente el tipo de resultado que se esperaría de una función tan útil y comúnmente utilizada cuando se suministra con el argumento apropiado.

Aquí hay muchos ejemplos que muestran respuestas al tipo de pregunta que la porción citada arriba está haciendo: {[26]]}

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"           } 

Prueba si el objeto especificado por <filename> es un archivo plano (en lugar de binario, o ser un directorio, etc.).