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

发布于 2024-08-20 23:08:15 字数 584 浏览 10 评论 0原文

（上下文：我正在尝试从 Perl CGI 脚本监视长时间运行的进程。它备份 MSSQL 数据库，然后对其进行 7-zip 压缩。到目前为止，备份部分（使用 WITH STATS=1) 输出到一个文件，我可以让浏览器查看该文件，每隔几秒刷新一次，它就可以工作。）

我正在尝试使用 7zip 的命令行实用程序，但将进度条捕获到文件中。不幸的是，与 SQL 备份不同的是，每次完成另一个百分比时，它都会输出另一行，7zip 在输出新的进度数据之前会倒回其输出，因此如果您只是正常使用它，它看起来会更好。命令行。不幸的是，使用 >、1> 和 2> 的正常重定向只会创建一个空白文件，并且不会输出出现在其中，但 > 除外，它在作业完成之前没有输出，这对于进度条来说不是很有用。

我怎样才能捕获这种输出，或者通过仅使用命令行技巧（没有 Perl）将 % 中的每个更改以某种方式附加到日志文件（这样我就可以使用现有的日志文件监视方法），或者使用一些 Perl调用system()后直接捕获它的代码？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

客…行舟 2024-08-27 23:08:15

如果您需要一次捕获所有输出，那么这就是您想要的代码：

$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++ 创建过程将允许您重定向所有标准输出。 Perl 可以访问相同的 API 调用：请参阅 Win32::Process。

If you need to capture the output all at once then this is the code you want:

$var=`echo cmd`;

If you want to read the output line by line then you need this code:

#! 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;
    }
}

Another option is using Windows create process. I know Windows C/C++ create process will allow you to redirect all stdout. Perl has access to this same API call: See Win32::Process.

回复收藏 0 原文