Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: deleting a file

by particle (Vicar)
on Jun 04, 2001 at 23:44 UTC ( #85582=note: print w/ replies, xml ) Need Help??


in reply to deleting a file

How about something that uses the output of unlink for a good purpose? no sense in letting it go to waste, after all...

@files = qw/file1 file2 file3/; $cnt = unlink(@files); unless( scalar(@files) == $cnt ) { die("Problem unlinking $files[$cnt]! $!"); }
also, this tells you which file was the problem, e.g.
Problem unlinking file2! No such file or directory at del.pl line 4.
there's always a better way. is there something better here?

Update 2002-06-19: yes, there's a better way. the above code assumes too much about the return value from unlink.

you can't reliably determine which file(s) failed to unlink from the return code alone. i suggest the following modification, which will report accurate results:

unless( $cnt == @files ) { die 'Problem unlinking ', $cnt, ' of ', scalar(@files), ' files! ', +$!; }
=Particle


Comment on Re: deleting a file
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2015-07-30 21:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (273 votes), past polls