Re: remove files from the V volume on windows

What error message do you get when the unlink fails?

What output do you get if you change the unlink to:

## $^E is the extended system error message
unlink $file or warn "failed on $file: $^E\n"
            if -M $file > 14;
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Comment on Re: remove files from the V volume on windows Download Code

Replies are listed 'Best First'.
Re^2: remove files from the V volume on windows by fnicholas (Initiate) on Aug 22, 2012 at 00:44 UTC
Error: The Free Size is : 2.5 GB failed on ..: The system cannot find the file specified Use of uninitialized value in numeric gt (>) at diskspace.pl line 24.	[reply]
Re^3: remove files from the V volume on windows by BrowserUk (Patriarch) on Aug 22, 2012 at 00:58 UTC
So, basically the file you are trying to delete does not exist. Why do you think that is? (Hint: what do you see when you print `$file` within the loop?) Your problem is that readdir returns the names of the files; not their full paths, so what your code is trying to do is delete a filename read from a path on your V: drive, from your current directory. You need to combine the name returned from readdir, with the path you gave to opendir to get a full pathname. Something like this might work: `... foreach $file (readdir DH){ my $path = "$dir_to_process/$file"; unlink $path or warn "failed on $path: $!\n" if -M $path > 14; }` [download] And for future reference, investigate glob which makes doing this sort of thing much easier. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l] [select]
Re^2: remove files from the V volume on windows by fnicholas (Initiate) on Aug 22, 2012 at 01:00 UTC
What error message do you get when the unlink fails? `ERROR: The Free Size is : 2.5 GB failed on .: failed on ..: Use of uninitialized value in numeric gt (>) at diskspace.pl line 24. failed on file1.txt: No such file or directory` [download] What output do you get if you change the unlink to: `## $^E is the extended system error message unlink $file or warn "failed on $file: $^E\n" if -M $file > 14;` [download] `ERROR: The Free Size is : 2.5 GB failed on .: Access is denied failed on ..: The system cannot find the file specified Use of uninitialized value in numeric gt (>) at diskspace.pl line 24. failed on file1.txt: The system cannot find the file specified` [download]	[reply] [d/l] [select]
Re^3: remove files from the V volume on windows by aitap (Curate) on Aug 22, 2012 at 07:40 UTC
You should ignore (e.g. `next if /^\.{1,2}$/`) "." and ".." as they are pseudo-directories meaning "current directory" and "upper directory". Sorry if my advice was wrong.	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks