RE: file types

[Jerry Preston]

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 '';

I know one file's permissions are lwxrwxrwxr and the other is -wxrwxrwxr!

Any ideas?

Thanks,

Jerry

-----Original Message-----
From: Jerry Preston [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 03, 2002 1:09 PM
To: Beginners Perl
Subject: file types


Hi!

I am trying to determine if a is linked or not.  I am using the following:

        if( -f "$fp/$program" ) {
  print "2 programs $program*\n";
          $programs{ program }{ $program } = "$fp/$program";
        }

and 

        if( -l "$fp/$program" ) {
  print "2 programs $program*\n";
          $programs{ program }{ $program } = "$fp/$program";
        }

I get the same result for two files!  One is linked and the other is not.

Thanks,

Jerry

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]