Thread Perl Verzeichnisse durchsuchen (27 answers)
Opened by Jens at 2011-06-03 11:14

pktm
 2011-06-03 11:42
#149388 #149388
User since
2003-08-07
2921 articles
BenutzerIn
[Homepage]
user image
Man könnte das abfangen, indem man prüft, ob in $pfad etwas drin ist:
Code: (dl )
1
2
3
4
my $pfad = shift; # oder $pfad = $ARGV[0];
die('Fehler: kein Verzeichnis angegeben!') unless defined $pfad;
die("Das Verzeichnis [$pfad] existiert nicht") unless -e $pfad;
die("[$pfad] ist kein Verzeichnis") unless -d $pfad;


Natürlich kann man das auch anders schreiben :)
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Perl Verzeichnisse durchsuchen