1

を使用して、Perl スクリプトに渡す引数のリストがありますARGV。4 番目の引数はサーバーの名前ですが、 というサーバーのリストを含むテキスト ファイルを渡したいと思いますservers.txt。それを渡して引数として使用するにはどうすればよいARGVですか?

サンプルファイルservers.txt:

server1
server2
server3

作業コード:

# usage example: ./test.pl Jul 05 2010 <server> <logfile>
# $ARGV[0]=Jul
# $ARGV[1]=05
# $ARGV[2]=2010
# $ARGV[3]=server
# $ARGV[4]=/pathoffile

use strict;
use warnings;

my($mon,$day,$year,$server,$file) = @ARGV;
open(my $fh,"ssh $server cat $file |") or die "can't open log $server:$file: $!\n";
while (my $line = <$fh>) {
    if ($line =~ /.* $mon $day \d{2}:\d{2}:\d{2} $year:.*(ERROR:|backup-date=|backup-size=|backup-time=|backup-status)/) {
        print $line;
    }
}
4

1 に答える 1

3

これは の仕事のようですxargs。

この代役を使用してtest.pl、実行されたコマンドを表示します

#! /usr/bin/perl

use warnings;
use strict;

$" = "][";
print "[@ARGV]\n";

ランニング

$ xargs -I{} ./test.pl 2010 年 7 月 5 日 {} ログファイル <servers.txt

生産する

[7月][05][2010][サーバー1][ログファイル]
[7 月][05][2010][server2][ログファイル]
[7 月][05][2010][server3][ログファイル]
于 2010-07-07T23:14:33.803 に答える