perl - フラグを指定してスクリプトを呼び出し、グローバル変数を取得する方法は?

Question

require "peacefullscript.pl -whiteflag";これが機能しないという問題のようなものを探しています。私が望むのは、いくつかのフラグを指定してスクリプトを呼び出し、それが作成するグローバル変数を現在のスクリプトに取得することです。

どうすればこれを簡単に行うことができますか?

Answer 1

{
    local @ARGV = ("-whiteflag");
    do "peacefullscript.pl";
}

localキーワードは、元のコマンドライン引数を上書きしない一時的なコピーを作成します@ARGV。

Answer 2

@ARGV = ("-whiteflag");
require "peacefullscript.pl";