1

我在 HP-UX 服务器上不断更新大量日志文件。我创建了 Perl 代码来找出我正在使用的字符串所在的日志文件的名称。Perl 使用 split 获取文件名并将其传递给变量。使用用户输入我将开始和停止字符串创建为两个变量。例如：

my $ssh = Net::OpenSSH->new($host, user => $user,
        master_opts => [ -o => 'NumberOfPasswordPrompts=1',
                         -o => 'PreferredAuthentications=keyboard-interactive,password'],
login_handler => \&login_handler);

$ssh-> error and die "Unable to connect" . $ssh->error;
my $output=$ssh->capture("grep .$userinput1. /app/bea/user_projects/domains/granite/om_ni.log*");

my $array = (split ":", $output)[0];
print "$array"."\n";

[编辑]：正如你们所要求的，上面是 $array 如何被填充的开始。下面是 awk 序列的开始：

my $a= "INFO - $userinput1";print $a;
my $b= "INFO - ProcessNode terminated... [$userinput1]";print $b;

使用 awk 作为 ssh 捕获命令的一部分，它将搜索整个日志文件并捕获字符串 $a 和字符串 $b 之间的每一行，然后获取另一个数组中的所有内容。例如：

my $output2=$ssh->capture("awk -v i=$array '$a,$b' i");

这里 $array 是保存日志文件完整路径的位置，它作为传递变量完全可以正常工作。我也尝试使用不带 -v 参数的 awk，一点也不重要。

[编辑 2]：这是 print "$array"."\n"; 的结果

/app/bea/user_projects/domains/granite/om_ni.log.2

当我运行 perl 脚本时，我得到了结果：

INFO - 28B26AD1-E959-4F5F-BD89-A7A6E601BE18INFO - ProcessNode terminated... [28B26AD1-E959-4F5F-BD89-A7A6E601BE18] syntax error The source line is 1.
The error context is
INFO - 28B26AD1-E959-4F5F-BD89-A7A6E601BE18,INFO - ProcessNode >>>  terminated. <<< ..  [28B26AD1-E959-4F5F-BD89-A7A6E601BE18]
awk: Quitting
The source line is 1.

以某种方式指向“终止”字的错误，但即使我在整个字符串中使用转义字符，它也不在乎并返回相同的错误。

非常感谢您对此问题的任何帮助。非常感谢您。

4

1 回答 1

0

虽然我真的不知道awk，但您调用它的方式似乎并不正确。这是 HP-UX 上的 awk 手册。

单引号 ( $a,$b) 中的部分应该是程序。但是，您将两个文本字符串传递给它，它们甚至没有被引用来分隔它们。这不是一个有效的 awk 程序；因此语法错误。

我认为您想要的类似于'/$a/, /$b/'程序（但同样，我不是 awk 专家）。

此外，您将文件名设置为 variable i，然后i在调用命令时使用代替文件名。我不知道您为什么要这样做，而且我认为在文件名中使用变量甚至都行不通。只需在文件名位置使用$array（为了清楚起见，您应该将其重命名为类似的名称）。$file

所以你的整个命令应该是这样的：

"awk '/$a/,/$b/' $file"

在这个单一命令中，您将处理三种不同的工具：Perl、SSH 和 awk。这很难调试，因为如果出现问题，很难判断问题出在哪里。将任务分解为更小的部分以使此类工作正常进行是至关重要的。

在这种情况下，这意味着您应该手动通过 SSH 连接到服务器并使用 awk 直到您获得正确的命令。只有当您确定您拥有正确的 awk 命令时，您才应该尝试将其合并到 Perl 中。如果你以这种方式分解任务会容易得多。

于 2013-04-29T08:08:38.987 回答