Get current terminal color pair in Perl

Question

I am trying to find out about color text in a terminal window. (In case this is important, I use Terminal.app in OS X.) I would like to get the current foreground and background pair. It looks like I can get this information in a perl script using the Term :: Cap library, but the solution eludes me.

In a perl script, how would I query the value of the current foreground and background color pair?

Answer 1

This function is beyond the scope of terminfo and termcap because it deals with terminal responses, and terminfo / termcap describes these features:

• how to tell the terminal that it performs some often performed function (for example, cleaning the screen) or
• - (, Home) .

, , 1980- . , (, ). , terminfo/termcap X/Open Curses. ncurses , , - , .

Terminal.app xterm, ( ) . , xterm , , . ( xtermset xtermcontrol), (, , ). xtermcontrol , Terminal.app — . :

Answer 2

, - , termcap terminfo - . , , . ECMA-48 ( "ANSI" ANSI X3.64, ), , , SGR "Set Graphic Rendition", .

Answer 3

perl Terminal.app, xterm .. / stdin, "\033]10;?\07" "\033]11;?\07" . http://invisible-island.net/xterm/ctlseqs/ctlseqs.html, http://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Operating-System-Controls .