chmod in perl

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: chmod in perl by atcroft (Abbot) on Mar 11, 2011 at 04:33 UTC
Have you checked the return status of the chmod command? For instance, `my $filename = q{deletefiles.txt}; chmod 0777, $filename or die $!; open my $OUTPUT, q{+>}, $filename or die $!;` [download] Hope that helps. Update: 2011-03-11 Fixed missing semicolon on line 2 of code example causing error referred to in Re^2: chmod in perl.	[reply] [d/l]
Re^2: chmod in perl by Anonymous Monk on Mar 11, 2011 at 06:18 UTC
I am getting the following error with the above code `my $filename = q{deletefiles.txt}; chmod 0777, $filename or die $! open my $OUTPUT, q{+>}, $filename or die $!; Missing comma after first argument to die function at perl.pl line 135 +, near "$filename or" Execution of qdepot_upload.pl aborted due to compilation errors.` [download]	[reply] [d/l]
Re^3: chmod in perl by ikegami (Patriarch) on Mar 11, 2011 at 07:27 UTC
You miscopied the code.	[reply]
Re^4: chmod in perl by atcroft (Abbot) on Mar 11, 2011 at 07:51 UTC
Re^5: chmod in perl by Anonymous Monk on Mar 11, 2011 at 09:19 UTC
Some notes below your chosen depth have not been shown here
Re^3: chmod in perl by Anonymous Monk on Dec 19, 2011 at 10:17 UTC
Try and put the semicolon after first die statement. Because of that its throwing that error because it's gonna continue till the end of file if you dont specify where to exactly end.	[reply]
Re: chmod in perl by graff (Chancellor) on Mar 11, 2011 at 05:34 UTC
If you happen to be on a unix/linux system (which is pretty much the only place where `chmod` makes sense), you should be aware that chmod will fail when used on a file that is not owned by the user who is running the script. (update: unless of course the user happens to be "root" -- in which case the user really ought to know what s/he is doing...) As mentioned above, checking the return value (and printing the value of `$!` when chmod returns false) will help you figure out what is going on.	[reply] [d/l] [select]
Re: chmod in perl by ikegami (Patriarch) on Mar 11, 2011 at 04:33 UTC
`use strict; use warnings;` [download]	[reply] [d/l]