通过perl执行unix命令和qsub作业

Question

我有一个包含命令列表的文件(scripts.out)。我需要将此文件拆分为多个文件，并同时提交每个文件作为qsub作业。我能够分割文件，但不能做'qsub'。我的代码到目前为止:

#!/usr/bin/perl
use strict;
use warnings;
my $outfile = "scripts.out";
my $split_command=`split -l 4  -d $outfile test_sub`;
my@split_array = split(/n/,$split_command);
   foreach my$split_file (@splt_array) {
    `qsub $split_file`;
   }

我相信有更好的方法来做这件事。split命令生成以下输出文件，需要是'qsub':

test_sub00
test_sub01

请分享您对改进代码的建议;如果可能的话，也可以用另一种方式。

Answer 1

将my @split_array行改为

my @split_array = glob "test_sub*";

如toolic所述，split命令不返回生成的文件列表。