perl - Perlスクリプトをリモートで実行しているときに、MsgBoxを使用して変数をエコーし​​ますか？

Question

これは可能ですか？

VB.netを使用して、リモートのperlスクリプトを実行しています。VBScriptと同様に、MsgBoxを画面に表示したいと思います。

Win32 :: MsgBox（ "Test"）を実行しようとしましたが、機能しませんでした。それも可能ですか？

WindowsシステムからUnixシステムにリモートでスクリプトを実行しています。

Answer 1

次のように、テキストのみの置換を使用できます。

sub AskYesNo {
    my ($question, $default) = @_;
    print $question, $default ? " [Y/n] " : " [y/N] ";
    my $answer = lc(ReadLine 0);
    chomp $answer;
    return 1 if $answer eq "y";
    return 0 if $answer eq "n";
    return $default;
}

ユーザーがEnterキーを押すだけで、デフォルトの回答「y」または「n」が選択されます。それはきれいではないかもしれませんが、仕事を成し遂げて、どんなPerlの下でも機能します。