Question

我正在编写一个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>);
}

Answer 1

更灵活的方法是使用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;

BTW，print system ("/home/me/build.sh");将打印system()的返回值，这是shell脚本的退出状态，而不是所需的输出。

Answer 2

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

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

system（“sh /home/me/build.sh | tee fileName”）;

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

在我的perl脚本中运行非perl脚本？

2 个答案: