perl - 別の受け渡しパラメータからperlスクリプトを実行する方法は？

Question

別の受け渡しパラメータからperlスクリプトを実行する方法は？

インターネットの投稿で見つかった、もう見つからない解決策を使用しようとしています。
それは次のようなものでした：

do 'script.cgi param1 param2';

そして、他のスクリプトでは、単にシフトを使用してこれらのパラメーターを取得しています。

#Parameters
my $param1= shift;
my $param2= shift;

argsでシステムを使用している人を見ましたが、実際にはもっと良いですか？
そうでない場合は、「do EXPR」を使用してソリューションを修正するにはどうすればよいですか？
前もって感謝します。

score 1 · Accepted Answer

まあ、私はやって解決しました：

{local @ARGV = (@my_args); do $script;}

できます。誰かより良い提案があれば、遠慮なく私に教えてください。
その間、私はこのソリューションを使用しています。

score 0 · Accepted Answer

実際には、私が考えることができる2つのより良い方法があります：

system($script, @my_args);

と

my $cmd = $script . ' ' . join(' ', @my_args);
my $return = `$cmd`;

どちらのソリューションも引数をに渡します@my_args。呼び出しは実行されたプログラムのsystem()終了コードを返しますが、バックティックソリューション (``) は後で解析するために出力を返します。

2 に答える 2