/ Published in: Perl
Does not work under emacs shell mode
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
## Under UNIX encironment ## use Term::ReadKey; my $hsize= ( Term::ReadKey::GetTerminalSize( \*STDOUT)) [0]; #-------------------------------------------------------------- ## Under Windows environment ## use Win32::Console; my $cons= Win32::Console->new(); my $hsize= ( $cons->Info()) [0];