Perl ist cool

Montag, 13. August 2007, 14:41

Gerade bei den perlmonks gefunden:
The Magic Underscore Filehandle
sub file_mode {
my ($file) = @_;
-f $file or return -1;
return (stat(_))[2]; # reuse stat from -f
}

Süß, oder? Ach, wahrscheinlich interessiert das eh wieder keinen ;o)
Dennis

Kringel said on September 24th 2007, 12:05:

Ich versteh' nicht mal, was mir diese Funktion sagen will *lol*

Dennis uttered on Oktober 9th 2007, 13:03:

Sie spart eine Dateisystemoperation! Man liest aus, ob eine Datei existiert (-f $file) und fragt anschließed die Berechtigungen der Datei ab, ohne aber erneut im Dateisystem wühlen zu müssen.

Name:
E-Mail:
Homepage:
20+3=? (Tipp: 23)