Recursive chmod/chown

[Christopher W Aiken]

In UNIX a simple "-R" option on the "chmod/chgrp/chown" command
will traverse all files and directories. Is there a simple way of
doing this same thing is a Perl script?

-=[cwa]=-

 

[Paul Lalli]

In UNIX a simple "-R" option on the "chmod/chgrp/chown" command
will traverse all files and directories. Is there a simple way of
doing this same thing is a Perl script?

Not quite as simple, no, but still relatively painless:

use File::Find;
find ( sub { chmod 0755, $_ or warn "Cannot chmod $File::Find::name:
$!"; }, '.');

Read more about File::Find at:
perldoc File::Find

Paul Lalli

 

[Ian Wilson]

In UNIX a simple "-R" option on the "chmod/chgrp/chown" command
will traverse all files and directories. Is there a simple way of
doing this same thing is a Perl script?

File::Find ?

 

[Christopher W Aiken]

Not quite as simple, no, but still relatively painless:

use File::Find;
find ( sub { chmod 0755, $_ or warn "Cannot chmod $File::Find::name:
$!"; }, '.');

Read more about File::Find at:
perldoc File::Find

Paul Lalli

Thanks !!! Doesn't look too bad to code.

-=[cwa]=-

 

[Gunnar Hjalmarsson]

Not quite as simple, no, but still relatively painless:

use File::Find;
find ( sub { chmod 0755, $_ or warn "Cannot chmod $File::Find::name:
$!"; }, '.');

Read more about File::Find at:
perldoc File::Find

Alternatively you can make use of the UNIX feature:

system "chmod -R 0755 $dir"