批量赋予可执行权限代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】批量赋予可执行权限

作者:gogo / 发布于2014/1/17/ 804

#!/usr/bin/perl

#use Cwd;

subRightAll(){

local($dir) =@_;

opendir(DIR,"$dir"||die"can't open $dir");

local@files=readdir(DIR);

closedir(DIR);

for$file(@files){

nextif($file=~m/\.$/ ||$file=~m/\.\.$/);

if($file=~/\.(sh|pl|bin|run|bundle|rb|py)$/i){

system"chmod +x \"$dir\/$file\"";

}

elsif(-d"$dir/$file"){

RightAll("$dir/$file");

}

}

}

&RightAll(getcwd);

　　

试试其它关键字

　可执行权限　

同语言下

可能有用的

gogo贡献的其它代码(7)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3