Как передать аргумент в ARGV из текстового файла в Perl - PullRequest
Новая
       6

Как передать аргумент в ARGV из текстового файла в Perl

1 голос
/ 08 июля 2010

У меня есть список аргументов для передачи в сценарий Perl, используя ARGV.Четвёртый аргумент - это имя сервера, но я хочу передать ему текстовый файл со списком серверов с именем 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;
    }
}

1 Ответ

3 голосов
/ 08 июля 2010

Это похоже на задание для xargs.

Использование этого дублера для test.pl, который показывает выполненную команду 

#! /usr/bin/perl

use warnings;
use strict;

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

выполняется 

$ xargs -I{} ./test.pl Jul 05 2010 {} logfile <servers.txt

производит 

[Jul][05][2010][server1][logfile]
[Jul][05][2010][server2][logfile]
[Jul][05][2010][server3][logfile]
...