网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
批量执行Linux安装程序和脚本
作者:
dezai
/ 发布于
2014/9/12
/
752
#!/usr/bin/perl #use Cwd; sub ExecuteAll(){ 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)$/i){ system "xterm -e bash \"$dir\/$file\""; } elsif($file =~/\.(bin|run|bundle)$/i){ system "xterm -e \"$dir\/$file\""; } elsif($file =~/\.(pl)$/i && $file != $0){ system "xterm -e perl \"$dir\/$file\""; } elsif($file =~/\.(class)$/i){ $file =~ s/(.*)\.(.*)/$1/; system "xterm -e java \"$dir\/$file\""; } elsif($file =~/\.(rpm)$/i){ system "xterm -e rpm -ivh \"$dir\/$file\""; } elsif($file =~/\.(rb)$/i){ system "xterm -e ruby \"$dir\/$file\""; } elsif($file =~/\.(py)$/i){ system "xterm -e python \"$dir\/$file\""; } elsif($file =~/\.(jar)$/i){ system "xterm -e java -jar \"$dir\/$file\""; } elsif(-d "$dir/$file"){ ExecuteAll("$dir/$file" ); } } } &ExecuteAll(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 实现
.
计算当月还剩天数
.
猜属相
.
二十四小时时钟
.
每日一语
.
很酷的日历
.
超长日历表单
.
最简单的时钟
地图
本站
我们
服务
版权
联系
回馈
博客