Could someone please point me in the right direction.
I wish to set the terminal width to 132 and later back to 80 from within a perl script.
The script uses the PerlMenu package to display a hierarchy of menus.
It has a facility to list the files in a directory so that one of these may be selected for processing.
If the length of the longest filename exceeds 40, I would like to set the terminal width to 132 before displaying the list.
I can set the width prior to running the script, but nothing I try works from within the script.
I am running perl5.6.1 on Compaq Alpha Tru64 UNIX V5.1A.
The start of my script is:
#!/usr/local/bin/perl5.6.1
# Perl5+Curses ONLY!
BEGIN {
$Curses::OldCurses = 1;
use lib "/usr/local/lib/perl5";
}
use Curses; # PerlMenu needs "Curses"
use perlmenu; # Main menu package (Perl5 only)
require "menuutil.pl"; # For "pause" and "print_nl" routines.
use Shell::Source; # Run programs and inherit environment changes
$| = 1; # Flush after every write to stdout
$window = &initscr();
&menu_curses_application($window);
TIA
Paul Keirnan
**********************************************************************
This message is intended for the addressee named and may contain
privileged information or confidential information or both. If you
are not the intended recipient please delete it and notify the sender.
**********************************************************************
