perl - qx内で関数を呼び出すことは可能ですか?

Question

これが私が望むことをするちょっとしたPerlコードです:

 my $value  = get_value();
 my $result = qx(some-shell-command $value);

 sub get_value {
   ...
   return ...
 }

を使用せずに同じ効果を達成することは可能$valueですか? 何かのようなもの

my $result = qx (some-shell-command . ' '. get_value());

2 番目のアプローチがうまくいかない理由はわかっています。それは単にアイデアを示すためです。

Answer 1

my $result = qx(some-shell-command  @{[ get_value() ]});

# or dereferencing single scalar value 
# (last one from get_value if it returns more than one)
my $result = qx(some-shell-command  ${ \get_value() });

しかし、私はあなたの最初のオプションを使用したいと思います。

説明: perl 配列は、 などの内部""を補間します。qx()

[]上記は、関数の結果を保持する配列参照であり、 によって逆参照され@{}、 内で補間されqx()ます。

Answer 2

バッククォート とqxは組み込み関数と同等であるreadpipeため、明示的に使用できます。

$result = readpipe("some-shell-command " . get_value());