Сценарий для получения информации о памяти

Question

#! usr/bin/perl 
    sub memoryInfo 
    { 
     print "Inside memory info \n"; 
     @memoryInfo = qx(free -m); 
     foreach (@memoryInfo) 
     { 
      print "$_\n"; 
     } 

    } 

    &memoryInfo; 

Это моя программа на Perl, которая не работает. Мне нужна информация, как общая память, общая физическая память, общая используемая память, общая кэш-память, общая память подкачки и общая используемая память подкачки.

Может ли кто-нибудь мне помочь? Спасибо заранее.

Answer 1

Это работает отлично.

#!/usr/bin/perl 

use strict; 
use warnings; 

sub memoryInfo 
{ 
    print "Inside memory info \n"; 
    my @memoryInfo = qx(free -m); 
    foreach (@memoryInfo) 
    { 
     print "$_\n"; 
    } 

} 

memoryInfo(); 

Answer 2

ваша программа работает нормально, если вы называете его с

perl meminfo.pl 

когда сделал исполняемый файл, вы должны получить сообщение об ошибке, как:

./meminfo.pl 
bash: ./meminfo.pl: usr/bin/perl: bad interpreter: No such file or directory 

, который указывает на ваш shebang (первая строка начиная с #! является неправильным ...

Кроме того, вы заметите дополнительные переводы строк в вашем выводе, потому что каждая строка в массиве уже есть символ новой строки из себя ...

наконец:

• использование строгого и предупреждения
• не называют подводные лодки с &
• избегайте ГорбатыйРегистр в переменных

рабочая версия вашей программы может быть:

#!/usr/bin/perl 

use strict; 
use warnings; 

sub memoryInfo { 
    print "Inside memory info \n"; 

    my @memoryinfo = qx(free -m); 
    chomp @memoryinfo; 

    foreach (@memoryinfo) { 
     print "$_\n"; 
    } 
} 

memoryInfo;