求教：如何递归地修改一个目录中的所有文件的属性

goodbetterbest

UID: 26215
帖子: 126
积分: 289
在线时间: 22 小时

1^# goodbetterbest 发表于 2008-07-25 11:01

求教：如何递归地修改一个目录中的所有文件的属性

请教：怎样能递归地修改本目录中的以及子目录中的所有文件的属性，改为755。谢谢。

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2008-07-25 11:13

File::Find - Traverse a directory tree

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

3^# hfahe 发表于 2008-07-25 11:14

用shell的 chmod －R ＊ 755 吧

Ksharp

UID: 18880
帖子: 7
积分: 16
在线时间: 10 分钟

4^# Ksharp 发表于 2008-07-25 11:38

http://www.perlmonks.org/?node_id=61745

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

5^# hdc1112 发表于 2008-07-25 14:04

恩，用File::Find模块里的find函数绝对适合你的要求，如下
use File::Find;

sub process {
print "I get $File::Find::name\n";
}

find(\&process,".");

因为find本身就是递归的处理树形结构的文件系统，这种思想感觉跟sax处理xml一样，事件驱动的

根据你的要求，可以在find函数的第一个参数对应的函数里加入chmod 0755,"$File::Find::name";来实现哦～