没有从 Java 调用的 Perl 脚本的输出

我在 Java 中使用 Ganymed ssh lib 连接到 Linux 机器并执行一些 unix 脚本，并显示它们的输出。

我正在运行一个父 shell 脚本，它依次运行其他几个子脚本，最后是一个 perl 脚本。对于 shell 脚本，一切都很好，但是当它到达 perl 脚本时，我停止获得任何输出。

如果我在 Linux 服务器上手动运行父脚本，我会看到 perl 的输出没有问题。

这是相关的 java 代码，连接到机器并调用 shell 脚本，并返回一个 BufferedReader 从中可以逐行读取输出：

try {
            conn = new Connection(server);
            conn.connect();
            boolean isAuthenticated = conn.authenticateWithPublicKey(user, keyfile, keyfilePass);
            if (isAuthenticated == false) {
                throw new IOException("Authentication failed.");
            }
            sess = conn.openSession();
            if (param == null) {
                sess.execCommand(". ./.bash_profile; cd $APP_HOME; ./parent_script.sh");
            }
            else {...}

            InputStream stdout = new StreamGobbler(sess.getStdout());
            reader = new BufferedReader(new InputStreamReader(stdout));

        } catch (IOException e) {
            e.printStackTrace();
        }

我的父 shell 脚本调用如下所示：

./start1  #script1 output OK
./start2  #script2 output OK
./start3  #script3 output OK
/u01/app/perl_script.pl # NO OUTPUT HERE :(

有谁知道为什么会发生这种情况？

编辑：添加 perl 脚本

#!/u01/app/repo/code/sh/perl.sh
use FindBin qw/ $Bin /;
use File::Basename qw/ dirname /;
use lib (dirname($Bin). "/pm" );
use Capture::Tiny qw/:all/;
use Data::Dumper;
use Archive::Zip;
use XML::Simple;
use MXA;
my $mx = new MXA;
chdir $mx->config->{$APP_HOME};
warn Dumper { targets => $mx->config->{RTBS} };
foreach my $target (keys %{ $mx->config->{RTBS}->{Targets} }) {
        my $cfg = $mx->config->{RTBS}->{Targets}->{$target};
        my @commands = (
                                        [
                                        ...
                                        ],
                                        [
                                        'unzip',
                                        '-o',
                                        "$cfg->{ConfigName}.zip",
                                        'Internal/AdapterConfig/Driver.xml'
                                        ],
                    [
                    'zip',
                    "$cfg->{ConfigName}.zip",
                    'Internal/AdapterConfig/Driver.xml'
                    ],
                    [
                    'rm -rf Internal'
                    ],
                    [
                    "rm -f $cfg->{ConfigName}.zip"
                    ],
                                );
        foreach my $cmnd (@commands) {
                warn Dumper { command => $cmnd };
                my ($stdout, $stderr, $status) = capture {
                        system(@{ $cmnd });
                };
                warn Dumper { stdout => $stdout,
                                                stderr => $stderr,
                                                status => $status };
        }
=pod
        warn "runnnig -scriptant /ANT_FILE:mxrt.RT_${target}argets_std.xml /ANT_TARGET:exportConfig -jopt:-DconfigName=Fixing -jopt:-DfileName=Fixing.zip');
        ($stdout, $stderr, $status) = capture {
                system('./command.app', '-scriptant -parameters');
        }
        ($stdout, $stderr, $status) = capture {
                system('unzip Real-time.zip Internal/AdapterConfig/Driver.xml');
        };
        my $xml = XMLin('Internal/AdapterConfig/MDPDriver.xml');
        print Dumper { xml => $xml };
   [[ ${AREAS} == "pr" ]] && {
      ${PREFIX}/substitute_mdp_driver_parts Internal/AdapterConfig/Driver.xml 123 controller@mdp-a-n1,controller@mdp-a-n2
   } || {
      ${PREFIX}/substitute_mdp_driver_parts Internal/AdapterConfig/Driver.xml z8pnOYpulGnWrR47y5UH0e96IU0OLadFdW/Bm controller@md-uat-n1,controller@md-uat-n2
   }
   zip Real-time.zip Internal/AdapterConfig/Driver.xml
   rm -rf Internal
   rm -f Real-time.zip
        print $mx->Dump( stdout => $stdout,
                                   stderr => $stderr,
                                   status => $status );
=cut
}