帮你改了一下脚本，用opendir来操作目录，然后用得到的目录名合并成新的路径名指定pbs来做qsub操作。不知道能行不。不行可以再联系我。
my $cur_dir = './';
opendir DIR, $cur_dir;
my @dirs = readdir DIR;
closedir DIR;
foreach (@dirs)
{
if ( -d $_ and $_ ne '.' and $_ ne '..' )
{
system "qsub $cur_dir/$_/jobexec.pbs";
}
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024