在win32上捕获尚未刷新的命令行输出

如果需要一次捕获所有输出,则这是所需的代码:

$var=`echo cmd`;

如果要逐行读取输出,则需要以下代码:

#! perl -slw
use strict;
use threads qw[ yield async ];
use threads::shared;

my( $cmd, $file ) = @ARGV;
my $done : shared = 0;
my @lines : shared;

async {
    my $pid = open my $CMD, "$cmd |" or die "$cmd : $!";
    open my $fh, '>', $file or die "$file : $!";
    while( <$CMD> ) {
        chomp;
        print $fh $_;         ## output to the file
        push @lines, $_;    ## and push it to a shared array
    }
    $done = 1;
}->detach;

my $n = 0;
while( !$done ) {
    if( @lines ) {            ## lines to be processed
        print pop @lines;   ## process them
    }
    else {
        ## Else nothing to do but wait.
        yield;
    }
}

另一个选项是使用windows创建进程。我知道windows c/c++创建过程将允许您重定向所有stdout。Perl可以访问这个相同的API调用:请参见 Win32::Process .

你可以试着打开一个 pipe 读取7zip的输出。

这并不能回答如何捕获被重写的输出,但这是一种有用的方法,我最终使用了它。

对于恢复:

1. 使用 7za l 列出zip文件中的文件及其大小
2. 叉 7za e 使用 open my $command
3. 跟踪每个文件 -s $filename 并与列表进行比较
4. 当所有输出文件都是完整大小时,就完成了

备份:

1. 在某处创建一个唯一的目录
2. 叉 7za a -w
3. 找到 .tmp 目录中的文件
4. 跟踪它的大小
5. 当 TMP 文件不再存在,您完成了

对于恢复,您可以获得足够的数据来显示完成的百分比,但是对于备份,您只能显示到目前为止的文件总大小,但是如果使用类似的数据来获取guestimate,则可以与历史比率进行比较。不过,现在的反馈比以前多了(没有)。