Làm thế nào tôi có thể tìm thấy dung lượng trống có sẵn trên các ổ đĩa được gắn bằng Perl?

Question

Tôi đang cố gắng gỡ bỏ một tệp. Trước khi untarring tôi muốn biết không gian trống có sẵn trên khối lượng gắn kết. Kế hoạch là nếu không có đủ không gian tôi sẽ không bỏ nó! Vì vậy, làm thế nào tôi có thể tìm thấy không gian trống có sẵn trên một khối lượng gắn kết bằng cách sử dụng Perl? Nhân tiện, tôi đang sử dụng Perl cho tar và untar.

Mọi người đang nói về df và dh nhưng các lệnh này không hoạt động trên các điểm gắn kết. Điều gì xảy ra nếu tôi muốn tìm không gian trống mà tôi có thể viết vào một điểm gắn kết?

Answer 1

Sử dụng vỏ lệnh để tạo ra một số K-miễn phí duy nhất mà Perl có thể sử dụng:

Thay đổi vào thư mục nơi bạn muốn gỡ bỏ (nếu chưa có) và thực hiện:

df . | grep -v '^Filesystem' | awk 'NF=6{print $4}NF==5{print $3}{}' 

Hoặc thay thế "." với điểm gắn kết thực tế.

Grep được loại bỏ tiêu đề và bản in đang tìm ra các kilobyte có sẵn cho cả hai dòng phân chia và không chia tách.

này được dựa trên các loại sau đây của đầu ra, bạn có thể phải điều chỉnh nếu UNIX của bạn kết quả đầu ra một cái gì đó khác nhau:

 
Filesystem 1K-blocks  Used Available Use% Mounted on 
/dev/sda4  206434224 56965356 139065176 30%/
varrun   1037296  132 1037164 1% /var/run 
varlock   1037296   0 1037296 0% /var/lock 
udev   1037296  68 1037228 1% /dev 
devshm   1037296  12 1037284 1% /dev/shm 
/dev/sda2   93327  43535  44973 50% /boot 
/dev/sdc1  155056484 29417456 117824612 20% /media/extra160 
gvfs-fuse-daemon 
       206434224 56965356 139065176 30% /home/pax/.gvfs 

Answer 2

Bạn có thể muốn mô-đun CPAN Filesys::DfPortable.

Answer 3

Bạn chỉ có thể sử dụng được xây dựng trong linux lệnh để có được kết quả:

my $vol = "/dev/volume"; 
my $freespace = `df $vol | grep '$vol' | awk '{print \$4}'`; 
# free space in megabytes. 
$freespace = sprintf("%01.2f", $freespace/1024); 

Answer 4

Hãy thử Filesys::DF (hệ thống posix) hoặc Filesys::DfPortable (Windows cũng). Cả hai đều sử dụng mã gốc để liệt kê các số liệu thống kê của FS.