我怎麼可以這樣寫PowerShell命令在perl腳本

Question

invoke-command HOST01 { cmd /C dir /S /B D:\file1 } 

我怎麼能包括在Perl腳本命令我嘗試使用

qx(invoke-command HOST01 { cmd /C dir /S /B D:\file1 })它不工作，該程序將永遠運行下去。

Answer 1

我相信在Perl中運行一個外部程序已經被問及過很多次了。

my @output = qx(powershell -NoProfile -Command "icm HOST01 { gci -n -rec D:\\file1 }"); 

foreach my $line (@output) { 
    print $line; 
} 

或

my $output = qx(powershell -NoProfile -Command "icm HOST01 { gci -n -rec D:\\file1 }"); 

print $output; 

Answer 2

invoke-command HOST01 { cmd /C dir /S /B D:\file1 }不是殼（cmd）命令。這是一個PowerShell命令，因此您需要從調用PowerShell開始。

這是你在命令行中運行的內容：

PowerShell -NoProfile -Command "Invoke-Command HOST01 { cmd /C dir /S /B D:\file1 }" 

所以，你想：

qx{PowerShell -NoProfile -Command "Invoke-Command HOST01 { cmd /C dir /S /B D:\file1 }"}