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

代码语言

代码分类

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

作者:dezai / 发布于2014/9/12/ 401


	#!/usr/bin/perl
	#use Cwd;
	sub RightAll(){
	 local($dir) = @_;
	 opendir(DIR,"$dir"|| die "can't open $dir");
	 local @files =readdir(DIR);
	 closedir(DIR);
	 for $file (@files){
	 next if($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);

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　可执行权限　

同语言下

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

可能有用的

.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码
.处理大图片在缩略图时的展示
.实现对图片上传的接收
.判断用户输入的是否为IP地址

dezai贡献的其它代码(1065)

.双色球
.列出所有物理网络适配器
.快乐数的 Python 实现
.计算当月还剩天数
.猜属相
.二十四小时时钟
.每日一语
.很酷的日历
.超长日历表单
.最简单的时钟