実行可能なjar出力をPerlの変数に格納する

Question

Javaプログラムの出力を取得してPerl変数に格納して、分割機能を使用できるようにする必要があります。私は、

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

system(@args); 

を使用してJava出力を取得していますが、私は、文字列からの出力を分割することができるようにどのように$args変数（文字列）には、この@argsを変換します。何を引数"firstname lastname"を追加した場合...

my $cmd = join(' ', @args); 

をしかし、待っ：

Answer 1

jarファイルの出力を保存する必要があります。したがって、システムの代わりにbacktickを使用してください。 は 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

Answer 2

あなたは引数を変換したい理由を私は知らないが、それはそれは簡単だろうように見えますか？

my @args = ("java", "-jar", "first.jar", "firstname lastname"); 
my $cmd = join(' ', @args); 

結果は次のようになります。

java -jar first.jar firstname lastname 

あなたの単一の名前の引数が2になります。正しい形式は次のようになります。

java -jar first.jar "firstname lastname" 

map助けることができる：

my $cmd = join(' ', map { "'$_'" } @args); 

（。あなたの引数は（）'引用符が含まれている可能性がある場合余分な努力が必要とされている）

を出力をキャプチャするために、使用バックチックまたはopen：

my $output = `$cmd`; # Multiline output in one variable 
my @output = `$cmd`; # Each output line in one array element 

# Read the output line by line saving memory 
open my $fh,'-|',$cmd; 
while (<$fh>) { 
    # Do something with a single output line in $_ 
} 

最後のものは、出力全体を1つの変数または配列に解析する必要はありません。各ループ反復で1行を処理します。一度に1つの回線だけを格納する必要があるため、数百GBの出力を簡単に処理できます。