Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: remove files from the V volume on windows

by BrowserUk (Pope)
on Aug 22, 2012 at 00:34 UTC ( #988907=note: print w/replies, xml ) Need Help??


in reply to remove files from the V volume on windows server 2008

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;

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?

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.

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

      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?

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988907]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2021-06-12 17:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (53 votes). Check out past polls.

    Notices?