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

我有一个问题，关于如何生成一个Perl脚本，在其中运行

df

命令并添加可用空间字段。Perl中是否有类似Python命令的东西

a = commands.getstatusoutput ( "df /")

---

尝试运行

Filesys:：Df

试着运行

Filesys:：Df

见

该模块应适用于所有版本的Windows（95及以上），以及 使用实现statvfs或statfs的所有Unix版本 电话。这包括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"
} 

看

该模块应适用于所有版本的Windows（95及以上），以及 使用实现statvfs或statfs的所有Unix版本 电话。这包括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"
} 

---

虽然你的问题从标题看有点清楚，但你还是应该尝试用英语添加说明。也许你应该尝试

qx'df/'

？虽然你的问题从标题看有点清楚，但你还是应该尝试用英语添加说明。也许你应该尝试

qx'df/'

？