从Perl脚本打印外部命令的输出

Question

我的任务是为在终端中运行此脚本的用户打印信息
我需要打印的信息是我从写作中获得的信息:

parted /dev/... print

是否有任何文件具有相同的信息,所以我可以使用perl脚本打开并打印它,
如果不是我真的不知道如何获取有关哪个分区是"boot"
以及每个分区的大小的信息

感觉就像我一直在寻找互联网,也许我只是在寻找
正确的参数,但我迷路了,任何帮助表示赞赏

Answer 1

您可以运行该命令并捕获输出

open my $cmd, '-|', 'parted', '/dev/...', 'print' || die "Can't run command: $!";

while (<$cmd>) {
    # do something with $_, e.g.
    print;
}

close $cmd || die "Error while closing off command: $!";