Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Unlink Permission Denied

by emilford (Friar)
on May 03, 2002 at 02:15 UTC ( #163694=note: print w/replies, xml ) Need Help??


in reply to Unlink Permission Denied

I'm not sure why those two lines of code don't work for you. I tossed them into a script and it removed the "output.txt" file just fine. Perhaps something before you attempt to unlink the file is causing you problems? What error are you getting from this? That might be helpful for us to know as well.

Replies are listed 'Best First'.
Re: Re: Unlink Permission Denied
by Marza (Vicar) on May 03, 2002 at 02:30 UTC
    It did? Well this is the code:
    sub mail_results { my $file = 'D:\Sysad-perl\scripts\Reports\AntiVirus Status\mailrpt +.txt'; if ( -e $file ) { # # Mail the report. my $sender = new Mail::Sender {smtp => 'synplcty.synplicity.co +m', from => 'mshember@synplicity.com'}; $sender->MailFile({to => 'mshember@synplicity.com', subject => 'McAfee AVP Level Report', msg => "Here is today's report.", file => $file} ); } unlink $file or $! == 2 or die "Cannot unlink $file: $!"; }

    This is the message

    Cannot unlink D:\Sysad-perl\scripts\Reports\AntiVirus Status\mailrpt.t +xt: Permission denied at D:\Sysad-perl\scripts\Reports\AntiVirus Stat +us\avpcheck.pl line 3 65.

    I wonder if the fact that it is win32 causing the problem?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://163694]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2018-08-18 01:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:









    Results (184 votes). Check out past polls.

    Notices?