perl - 将可执行 jar 输出存储在 Perl 中的变量中

Question

我需要检索 Java 程序的输出并将其存储在 Perl 变量中，以便我能够使用拆分函数。我正在使用 Java 输出，

my @args = ("java", "-jar", "first.jar");

system(@args);

但是如何将此 @args 转换为 $args 变量(字符串)，以便我可以从字符串中拆分输出。

Answer 1

我希望您需要存储jar 文件的输出。所以使用 backtick 而不是 system.尝试了解两者之间的区别 system和 Backtick / qx

my @args = ("java", "-jar", "first.jar");

my $result = `@args`;

my @ans = split(" ",$result);

print "$ans[0] $ans[1]";

假设您的结果是 xyz abc。 $ans[0] 存储 xyz 和 $ans[1] 存储 abc