in reply to Changing file permissions recursively

In Unix: 
find . -type f -print | xargs chmod 700

[download]
In Perl, you're looking for the file test operator -f. The file test operators are documented with their related function, stat.
Caution: Contents may have been coded under pressure.

Replies are listed 'Best First'.
Re^2: Changing file permissions recursively
by EvanCarroll (Chaplain) on Oct 24, 2005 at 21:34 UTC
    Golf?
    find . -type f -exec chmod 700 {}+ \;


    Evan Carroll
    www.EvanCarroll.com
[reply]
[d/l]

In Section Seekers of Perl Wisdom