Hallo, dies ist ein Test.

PWD: /www/data-lst1/unixsoft/unixsoft/kaempfer/.public_html

Running in File Mode
Relative path: ./../../.././../../server/etc/./scripts/checklinks
Real path: /www/server/etc/scripts/checklinks
Zurück

#!/usr/bin/perl open(FIND,"find $ARGV[0] -type l -print |") || die "Can't run find: $!"; while (<FIND>) { chop; if ( ! -e $_ ) { printf "target of link $_ (%s) doesn't exist\n", readlink; } }