linux - メモリ情報取得スクリプト

Question

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

    }

    &memoryInfo;

これは動作していない私の Perl プログラムです。合計メモリ、合計物理メモリ、合計使用メモリ、合計キャッシュメモリ、合計スワップメモリ​​、合計使用スワップメモリ​​などの情報が必要です。

誰でも私を助けることができますか？前もって感謝します。

Answer 1

あなたがそれを呼び出すならば、あなたのプログラムは正常に動作しています

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;

Answer 2

これは完全にうまく機能します。

#!/usr/bin/perl

use strict;
use warnings;

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

}

memoryInfo();