以任何语言循环执行 diskpart 命令的更好方法?

Better way to execute diskpart commands in loop, in any language?

我有100张磁盘需要在线制作。我尝试了下面的 perl 代码来做同样的事情。

foreach (1..100){
    open(FILE, ">test.txt");
    print FILE ("select disk $_\nonline disk");
    close FILE;
    system("diskpart.exe /s test.txt");
}

我的问题是,是否有更有效的方法来循环执行 diskpart 命令,例如使用 shell 脚本或其他任何方法?

提前致谢!

您可以在 diskpart.exe 标准输入上通过管道传输命令,

use strict;
use warnings;
use autodie;

open my $p, '|-', 'diskpart.exe';
foreach my $i (1..100) {
    print $p "select disk $i\nonline disk\n";
}
close($p);