Include Term::ReadKey (GetTerminalSize) for MSWindows?
la forma de conseguir el tamaño de la terminal (rwos&cols) con
my ( $rows, $cols ) = split( / /, stty size );
puede que no funcione en MSWindows. Solución: use Term::ReadKey .
Ver Pro Perl, chap 15.
Esto obliga a instalar Term::ReadKey en unix aunque no haga falta; puede que fuera mejor comprobar el sistema operativo y cargar o no ReadKey, y usar stty o GetTerminalSize.
Puede que alivie la carga leer solo Term::ReadKey (GetTerminalSize) comprobar.
nocejo
commented
9 years ago
Include Term::ReadKey (GetTerminalSize) for MSWindows?
la forma de conseguir el tamaño de la terminal (rwos&cols) con my ( $rows, $cols ) = split( / /,
stty size); puede que no funcione en MSWindows. Solución: use Term::ReadKey . Ver Pro Perl, chap 15. Esto obliga a instalar Term::ReadKey en unix aunque no haga falta; puede que fuera mejor comprobar el sistema operativo y cargar o no ReadKey, y usar stty o GetTerminalSize. Puede que alivie la carga leer solo Term::ReadKey (GetTerminalSize) comprobar.