Advanced Search

Return to Snippet

Revision: 299
at July 8, 2006 21:10 by kkindoh
Initial Code 
## 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];
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Does not work under emacs shell mode

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
How to get screen size

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl