0

我正在编写一个 Perl 脚本来自动安装一些软件。

在我的脚本中，我运行另一个 bash 脚本并获取其输出并再次打印。

print `/home/me/build.sh`;

但是 build.sh 脚本需要 8 分钟，所以我的脚本等到 8 分钟，脚本完成打印输出的开始。

当 build.sh 程序在 bash shell 中运行时，如何打印它的每一行？

正如下面的评论，我使用system ("/home/me/build.sh");

但是输出到shell但是我在我的脚本中重定向到我的日志文件，

open $fh, "> filename";
*STDOUT = $fh;
*STDERR = $fh;

那么当我使用系统函数时，它的输出将被重定向到文件名，但事实并非如此。

我应该使用print system ("/home/me/build.sh");而不是system ("/home/me/build.sh");吗？

#

完整代码：

#!/usr/bin/perl

use strict;
use warnings;

use IO::File;

my %DELIVERIES = ();
my $APP_PATH = $ENV{HOME};
my $LOG_DIR = "$APP_PATH/logs";
my ($PRG_NAME) = $0 =~ /^[\/.].*\/([a-zA-Z]*.*)/;

main(@argv);

sub main
{
        my @comps = components_name();
        my $comp;
        my $pid;

        while ( scalar @comps ) {
                $comp = pop @comps;
                if ( ! ($pid = fork) ) {
                        my $filename = lc "$LOG_DIR/$comp.log";

                        print "$comp delpoyment started, see $filename\n";

                        open (my $logFile, ">", "$filename") or (die "$PRG_NAME: $!" && exit);
                        *STDOUT = $logFile;
                        *STDERR = $logFile;

                        deploy_component ( $comp );

                        exit 0;
                }
        }
        my $res = waitpid (-1, 0);
}


sub components_name
{
        my $FILENAME="$ENV{HOME}/components";
        my @comps = ();

        my $fh = IO::File->new($FILENAME, "r");

        while (<$fh>)
        {
                push (@comps, $1) if /._(.*?)_.*/;
                chomp ($DELIVERIES{$1} = $_);
        }

        return @comps;
}

sub deploy_component
{
        my $comp_name = shift;

        print "\t[umask]: Changing umask to 007\n";
        `umask 007`;

        print "\t[Deploing]: Start the build.sh command\n\n";
        open (PIPE, "-|", "/build.sh");
        print while(<PIPE>);
}
4

2 回答 2

6

一种更灵活的方式是使用pipe.

open PIPE, "/home/me/build.sh |";
open FILE, ">filename";
while (<PIPE>) {
    print $_;           # print to standard output
    print FILE $_;      # print to filename
}
close PIPE;
close FILE;

顺便说一句，print system ("/home/me/build.sh");将打印 的返回值system()，这是您的 shell 脚本的退出状态，而不是想要的输出。

于 2013-10-08T08:38:14.163 回答
0

当 build.sh 程序在 bash shell 中运行时，如何打印它的每一行？

可能的解决方案：您可以尝试以下方法

系统（“sh /home/me/build.sh | tee 文件名”）；

上面的语句将在控制台上显示 build.sh 的输出，同时将该输出写入作为 tee 参数提供的文件名中

于 2013-10-08T12:03:29.593 回答