Hmmm... have a look at Win32::Console I don't know about any non MS platforms though..
I found something like
# Get position only
($x, $y) = $CONSOLE->Cursor();
Further to that
Info
Returns an array of informations about the console (or undef on errors), which contains:
columns (X size) of the console buffer.
rows (Y size) of the console buffer.
current column (X position) of the cursor.
current row (Y position) of the cursor.
current attribute used for Write.
left column (X of the starting point) of the current console window.
top row (Y of the starting point) of the current console window.
right column (X of the final point) of the current console window.
bottom row (Y of the final point) of the current console window.
maximum number of columns for the console window, given the current buffer size, font and the screen size.
maximum number of rows for the console window, given the current buffer size, font and the screen size.
See also: Attr, Cursor, Size, Window, MaxWindow.
Example:
@info = $CONSOLE->Info();
print "Cursor at $info[3], $info[4].\n";
Hope that helps
-----
Of all the things I've lost in my life, its my mind I miss the most.