Как я получаю терминальную ширину в Perl?

Question

Как я получаю терминальную ширину в Perl?

Я нашел, что просто установка установки DoubleBuffered на форме автоматически устанавливает все свойства, перечисленные здесь.

9

perl terminal

задан brian d foy 23 November 2009 в 11:53

3 ответа


         
            
         
            
               
                  
                      Если вы хотите создать индикатор выполнения , не переживайте по поводу деталей. Используйте один из многих  модулей индикатора выполнения на CPAN  и покончите с этим. 
                  
                  
                     
                     6

                  
                  
                  
                     ответ дан                      4 December 2019 в 06:06 
                  
                  поделиться
               
                              
                  
                     
      
                                         
                  
               
            
         
         
            
         
            
               
                  
                      Term :: Size :: Any  похоже на то, что вам нужно. 
                  
                  
                     
                     5

                  
                  
                  
                     ответ дан                      4 December 2019 в 06:06 
                  
                  поделиться
               
                              
                  
                     
      
                                         
                  
               
            
         
         
               
          Другие вопросы по тегам:          
         perl terminal       
        Похожие вопросы:

        
          
                          73 
 Скрытые функции Perl? - 25 September 2017 20:53 
                            35 
 Почему изучают Perl, Python, Ruby, если компания использует C++, C# или Java как язык приложения? [закрытый] - 20 May 2010 08:15 
                            26 
 python выполняет команды терминала без echo [duplicate]  - 22 September 2014 13:40 
                            26 
 Сделайте Вы предпочитаете “если (var)” или “если (var! = 0)”? [закрытый] - 5 April 2012 13:45 
                            26 
 Как напечатать цветной текст в терминале в Python? - 24 April 2019 11:17 
                            26 
 Общие глюки для Perl? [закрытый] - 23 May 2017 00:31 
                            23 
 почему мое выполнение не работает? subprocess.run [duplicate]  - 22 September 2014 13:40

score 27 · Accepted Answer

FAQ, поставляемый с Perl, содержит ответ на этот вопрос. Если вы запустите perldoc -q "размер экрана" , вы получите следующее:

Как мне узнать размер экрана?

Если у вас есть Term :: ReadKey установленный из CPAN, вы можете использовать его для получения ширины и высоты в символах и пикселях:
 use Term :: ReadKey;
($ wchar, $ hchar, $ wpixels, $ hpixels) = GetTerminalSize ();
Это более переносимо, чем необработанный «ioctl», но не так наглядно:
 требуется 'sys / ioctl.ph';
die "no TIOCGWINSZ", если не указано иное & TIOCGWINSZ;
open (TTY, "+ 



 Таким образом, вы можете использовать последний вариант, если вам нужно решение на чистом Perl, или установить  Term :: ReadKey  из CPAN, если вам нужно более простое решение в коде, но более предварительную настройку.