Get current terminal color pair in Perl
I'm trying to learn about color text in a terminal window. (In case it matters I'm using Terminal.app on OS X.) I'd like to get the terminal's current foreground and background color pair. It looks like I should be able to get this info in a perl script using the Term::Cap library, but the solution eludes me.
In a perl script how would I query the terminal's current foreground and background color pair value?
The feature is outside the scope of terminfo and termcap, because it deals with terminal responses, while terminfo/termcap describe these capabilities:
- how to tell the terminal to do some commonly-implemented feature (such as clearing the screen), or
- what sequence of characters might some special key (such as Home) send from the keyboard.
While in principle, there is no limitation on what could be part of a terminal description, there was little commonality across terminals back in the 1980s for responses. A few terminals could report specific features, most of those were constant (e.g., version information). Most of the variable responses came after terminfo/termcap had more or less solidified in X/Open Curses. ncurses extends that, but again, most of the extensions are either features or special keys.
Terminal.app implements the most commonly-used features of xterm, but (like other imitators) omits most of the terminal responses. Among other things, xterm provides terminal responses which can tell an application what the window's colors are currently. There are a couple of command-line utilities (xtermset and xtermcontrol) which have been written to use this information (and again, they cover only a part of the repertoire). Using xtermcontrol demonstrates that Terminal.app is lacking in this area — see screenshot:
- I'm not able to execute a Perl script inside Ajax
- koi8-r text is shown incorrectly
- How do I download a file with WWW::Mechanize after it submits a form?
- How to stop array sort in Perl
- specifying the right perl version for git
- Two versions of Perl in Mac OS X?
- Perl DBI with Mariadb Maxscale
- Can't figure out multi-dimensional Perl hash references: Not a HASH reference
- Why is "kill" is not exiting a thread immediately?
- Net::OpenSSH with Expect to connect to router
- Can't locate new.pm in @INC
- Parsing broken multipart/mixed email
- How can I print a table with multi-line strings using the Text::Table module?
- How do I output a text table in Perl?
- Is there a bash-perl shortcut to count the number of matches in each line?
- Calculate date of birth from age at specific date [MySQL or Perl]
- bash perl run argument as command
- Match all files in directory and index files from first level children
- Print HTML Table from an array with condition with Perl CGI
- Why do I get ARRAY(0x9c90818) instead of the items in the array in Perl?
- Perl regex for street number street name, at least, one digit, one upper case letter, least two lowercase and one whitespace
- File::Copy vs. rename
- Using Perl's 'rename' to pad filenames with leading zeros
- Swap filenames backwards
- Expect module: end of string is correctly matched, but characters remain in 'after' part, causing next expect to continue prematurely
- Is there a Perl equivalent to Python's `if __name__ == '__main__'`?
- How can I add variables into my Perl one-liner?
- Parsing a file by summing up different columns of each row separated by blank line
- How to prevent automatic handling of newlines killing performance in Perl text output?
- How to pass both mandatory and optional command line arguments to perl script?