Re: File Attributes in Win32


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: File Attributes in Win32

by c-era (Curate)

on May 01, 2001 at 18:45 UTC ( [id://76977]=note: print w/replies, xml )

Need Help??

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

Comment on Re: File Attributes in Win32 Select or Download Code

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom