概要

  • 指定したパスを含むパーティションの使用容量(%)を調べる

Filesys::Df 版

  • 使用パーセントは「per」で得られる。

ソース

  • filegetDiskUsage.zip
    すべてを展開すべてを収束
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
    
     
     
     
     
     
     
     
     
     
     
     
    -
    |
    !
     
     
    
    #!/usr/bin/perl
    # 指定したパスを含むパーティションの使用状況を調べる。
     
    use strict;
    use warnings;
    use utf8;
    use Filesys::Df;
    use Number::Format qw(:subs);
     
    my $path = shift or die("usage: getDiskUsage <path>\n");
    my $refDf = df($path, 1) or die("$!\n");
    foreach my $key (sort(keys(%{$refDf}))){
        print $key . ":\t" . format_bytes($refDf->{$key}) . "\n";
    }
     
    # EOF
    

自前版

  • OSコマンド・インジェクション対策はしてないので、安全なパスのみ渡すようにすること。
  • エラー時には「-1」が戻る。

ソース

すべてを展開すべてを収束
  1
  2
  3
  4
  5
  6
  7
 
-
|
|
|
|
!
sub getDiskUsage
{
    my $path = shift || '/';
    my $result = `df -h $path`;
    $result =~ /(\d+)%\s+\//;
    return $1 || -1;
}

添付ファイル: filegetDiskUsage.zip 183件 [詳細]

リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Wed, 25 Jun 2014 15:20:22 JST (1485d)