如何运行命令df并添加perl中可用的空间？

Question

buenas tengo una duda de como hacer un script en perl donde debo ejecutar el comando df y sumar el campo espacio disponible.si hubiera un comando parecido al a = commands.getstatusoutput（“df /”）de python para perl

英文：

我有一个关于如何制作Perl脚本的问题，我运行df命令并添加可用空间字段。是否有像

这样的东西

a = commands.getstatusoutput ( "df /")

Perl中的

Python命令？

Answer 1

请参阅Filesys::DfPortable。

  

该模块应适用于所有版本的Windows（95及更高版本），以及   与各种Unix实现statvfs或statfs   调用。这包括Linux，* BSD，HP-UX，AIX，Solaris，Mac OS X，   Irix，Cygwin等...

梗概：

#!/usr/bin/perl
use strict;
use warnings;

use Filesys::DfPortable;

my $ref = dfportable("/", 1024); # Display output in 1K blocks
if(defined($ref)) {
 print"Total 1k blocks: $ref->{blocks}\n";
 print"Total 1k blocks free: $ref->{bfree}\n";
 print"Total 1k blocks avail to me: $ref->{bavail}\n";
 print"Total 1k blocks used: $ref->{bused}\n";
 print"Percent full: $ref->{per}\n"
} 

Answer 2

尝试运行Filesys::Df。 perldoc Filesys::Df