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)