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

代码语言

代码分类

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

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

#!/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)