in reply to File Attributes in Win32

When it is false the '-A $file' returns null (which is considered a string). You can use this code to correct it: 
if (-A $file || 0 > 30)

[download]
The '||' will use 0 to do the compair if -A $file is null (and no more warning).

Update: I don't know why I missed this (thanks to the people below who brought it up). '-A $file' is returning false because you are getting a directory listing for a directory and then checking the files in the current directory. Use this if statement: 

if (-A "$dirPath\\$file")

[download]
Then you don't even need the '|| 0'.

Replies are listed 'Best First'.
(tye)Re: File Attributes in Win32
by tye (Sage) on May 01, 2001 at 19:39 UTC

    You have a precedence error. Your code should be: if(  ( -A $file || 0 ) > 30  ) { || is a logical operator so it binds less tightly than comparison operators because you usually use it like: if(  -A $file > 30  ||  -M $file > 60  ) { and precedence is designed so that most common usages don't require parens (except for the bitwise operators which inheritted their broken precedence from C).

            - tye (but my friends call me "Tye")
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom