执行Linux安装程序和脚本代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】执行Linux安装程序和脚本

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

#!/usr/bin/perl

#use Cwd;

subExecuteAll(){

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)$/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);

试试其它关键字

　安装程序　

同语言下

可能有用的

gogo贡献的其它代码(7)