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

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

parted /dev/... print

是否有具有相同信息的文件，以便我可以使用perl脚本打开并打印它，
如果没有，我真的不知道如何获得关于哪个分区是“引导”的信息
以及每个分区的大小

感觉好像我一直在网上搜索，也许我只是不擅长搜索

---

正确的参数，但我丢失了，非常感谢您的帮助

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

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: $!";

打开我的$cmd，'-|'，'parted'，'/dev/…，'print'| | die“无法运行命令：$！”；
而（）{
#用美元做某事，例如。
印刷品；
}
关闭命令时关闭$cmd | | die“错误：$！”；

这就是背景符号（`）的作用：

---

有关更多信息，请参阅。

请不要修改问题，请询问其他问题。

print `parted /dev/... print`;

print qx(parted /dev/... print);     # Another way to do it

my $output = `parted /dev/... print`;  # Save to variable

...

print $fh $output;   # Use later