Programmieren mit Perl

use filetest

$can_perhaps_read = -r "file";     # Modusbits verwenden
{
    use filetest 'access';         # streng Dich mehr an
    $can_really_read = -r "file";
}
$can_perhaps_read = -r "file";     # Modusbits erneut verwenden

Dieses lexikalisch beschränkte Pragma weist den Compiler an, das Verhalten der unären Datei-Testoperatoren -r, -w, -x, -R, -W und-x (dokumentiert in Kapitel 3, Unäre und binäre Operatoren) zu ändern. Das normale Verhalten dieser Dateitests besteht darin, die von der stat-Familie zurückgegebenen Bits zu verwenden. Das ist aber nicht immer die richtige Lösung, z.B. wenn das Dateisystem ACLs (Access Control Lists, also Zugriffskontrollisten) versteht. In Umgebungen wie beispielsweise AFS, wo das eine Rolle spielt, kann use filetest dabei helfen, ...