Re: chmod in perl

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.

Comment on Re: chmod in perl Download Code
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 (Pope) on Mar 11, 2011 at 07:27 UTC
You miscopied the code.	[reply]
Re^4: chmod in perl by atcroft (Monsignor) on Mar 11, 2011 at 07:51 UTC
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.	[reply]
Re^5: chmod in perl by Anonymous Monk on Mar 11, 2011 at 09:19 UTC
Re^6: chmod in perl by ikegami (Pope) on Mar 11, 2011 at 18:37 UTC
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]