#!/usr/bin/perl #getattributes #dieses Programm liest Wörter von den Argumenten ein #diese Wörter werden dann mit Rechten des Benutzers ausgegeben! foreach $datei (@ARGV) { next unless -e $datei; print "-" if -f $datei; print "d" if -d $datei; print -r $datei ? "r" : "-"; print -w $datei ? "w" : "-"; print -x $datei ? "x" : "-"; print "\t"; #Tabulator print $datei; print "\n"; }