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

Question

我有一个带有命令列表的文件（scripts.out）。我需要将此文件拆分为多个文件，同时将每个文件作为qsub作业提交。我能够分割文件，但不能做＆＃39; qsub＆＃39; 。到目前为止我的代码：

#!/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命令生成以下输出文件，需要是＆＃39; qsub＆＃39;：

test_sub00
test_sub01

请分享您的建议以改进代码;或者如果可能的话，另外一种方法。

Answer 1

将我的@split_array行更改为

my @split_array = glob "test_sub*";

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