ターミナルを開くと、黒い背景に白い文字が表示されます。現在カーソルがどこにあるかを示す緑色のプレースホルダーもあります。
この動作は、ターミナルで実行されているどの perl スクリプトでも同じです。
スクリプト内でカーソル インジケーターの色を変更するにはどうすればよいですか (具体的には、しばらく消えてから戻ってくるようにします)。
Linux と bash を使用しています。
ターミナルを開くと、黒い背景に白い文字が表示されます。現在カーソルがどこにあるかを示す緑色のプレースホルダーもあります。
この動作は、ターミナルで実行されているどの perl スクリプトでも同じです。
スクリプト内でカーソル インジケーターの色を変更するにはどうすればよいですか (具体的には、しばらく消えてから戻ってくるようにします)。
Linux と bash を使用しています。
移植性はありませんが、特定の端末はカーソルの色を変更するエスケープ シーケンスを受け入れます。
たとえば、色の設定xterm
を受け入れますOSC 12
$ echo -e "\e]12;red\a"
印刷されたテキストの色を変更すると、カーソルの色を変更できます。したがって、印刷するテキストの色を変更せずに、カーソルの色を単純に変更することはできません。
ただし、カーソルを非表示にすることができます。
system("tput cinvis"); # make cursor invisible
system("tput cnorm"); # make cursor visible
このようなことを試しましたか?
use Term::ANSIColor qw(:constants);
print RED, "Danger, Will Robinson!\n", RESET;