#!/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";
}