Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^4: chmod in perl

by atcroft (Monsignor)
on Mar 11, 2011 at 07:51 UTC ( #892604=note: print w/replies, xml ) Need Help??

in reply to Re^3: chmod in perl
in thread chmod in perl

Actually, I did. I fixed it, and put a note at the bottom to indicate it had been updated, but have no idea if the OP has seen it or tried with the missing semicolon in place.

Replies are listed 'Best First'.
Re^5: chmod in perl
by Anonymous Monk on Mar 11, 2011 at 09:19 UTC

    The problem with the below code is if the file doesnot exist,you will get an error "No such file or directory at line 135

    my $filename = q{deletefiles.txt}; chmod 0777, $filename or die $!; open my $OUTPUT, q{+>}, $filename or die $!;

      Either ignore that error,

      my $filename = q{deletefiles.txt}; chmod 0777, $filename or $!{ENOENT} or die $!; open my $OUTPUT, q{+>}, $filename or die $!;

      Or change the permissions after creating the file.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://892604]
[Lady_Aleena]: Would someone please derail my train of thought?
[Discipulus]: marto as Marcus Manlius Capitolinus
[Discipulus]: use Dynamite; Lady_Aleena
[Lady_Aleena]: That's the problem. I have 29 scripts, 3 modules, and gads of data I am thinking about deleting out of anger over an API change that made all of those things worthless.

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2017-05-25 07:28 GMT
Find Nodes?
    Voting Booth?