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

I love perl. I know, I mentioned it a couple of times before, but I simply love the simplicity, the timtowtdi-attitude (there is more than one way to do it) and the fact that it takes only a couple of lines of code to implement something I need.

Weiterlesen...