On Friday, May 3, 2002, at 02:57 , Jerry Preston wrote:
> I tried the following:
>
> if( ! defined( $x = readlink( "$fp/$program" ))) {
> print "2 programs $program*'$x'*\n";
> $programs{ program }{ $program } = "$fp/$program";
> }
>
> and all I get is '';
let's try the 'step back' process
my $x = readlink( "$fp/$program" );
if ( $x ) {
# we know that $x is now what the Link Points To
} else {
# what ever "$fp/$program" is, it is not a symbolic link.
}
to illustrate in more depth I have updated:
http://www.wetware.com/drieux/CS/lang/Perl/Beginners/linkToNowhere.txt
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
