Perl腳本打印一個外部命令的輸出

Question

我的任務是打印對誰運行在終端
我需要打印的信息，該腳本的用戶信息是我從寫作得到的信息：

parted /dev/... print 

是否有相同的信息的任何文件，所以我可以打開並使用perl腳本打印，
如果不是我真的不知道如何獲取信息的保存有關哪個分區，即「引導」
和每個分區的大小

感覺就像我一直在尋找所有在互聯網上，也許我只是不擅長搜索的
正確的參數，但我迷路了任何幫助表示讚賞

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

Answer 2

這就是反引號（'）是：

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 

更多信息請參見perldoc perlop。