Not able to set file permissions using PERL

[Rr Kumaran]

I have below simple perl script which sets sets all permissions to all type of users.

#!/usr/bin/perl
 
$status = `chmod 755 /home/dummyuser/dummmy.txt`;
print ("\$status:$status");
 
system ("chmod 777 dummmy.txt");

even I tried the 'system' command like shown in above script but when I run the script I am getting an error "chmod: WARNING: can't access /home/dummyuser/dummmy.txt".

Please suggest how to programatically set permissions on files in perl.


Thanks in advance.

[Frank Carver]

The error message seems to be saying that it simply can't access the named file. This might be for several reasons:

Does it exist? (I notice, for example, that the filename has three "m"s in it. Is that a typing error?)

Can the user running the script read/change the file (and its enclosing directory?) - try

cat /home/dummyuser/dummmy.txt

and

ls -l /home/dummyuser /home/dummyuser/dummmy.txt

The general answer is to try the commands from the command line first (making sure you are logged on as the user who runs the script), and see what happens.