Hello,

Thanks for your help so far. I've tried putting the awk script into my Perl routine but I'm not sure if I'm missing something so please forgive my ignorance. This is my Perl code:

#my $errRpt = `ssh $hostname "grep -s -e '$shortDate' -e '$shortDate2' /var/log/messages|egrep -v 'ssh|cr
on|warn|segfault|success|syslog|passwd|usersense|command|patrol' \n"`;
my $errRpt = `ssh $hostname "awk -v SD1='$shortDate' -v SD2='$shortDate2' '
# Ignore things that don't match SD1 and SD2
!((SD1 ~ $0) || (SD2 ~ $0)) { next }
# Ignore things that match these strings
/ssh|cron|warn|segfault|success|syslog|passwd|usersense|[Pp][Aa][Tt][Rr][Oo][Ll]/ { next }
/multipathd/ {
STR=$0
# Blank the date fields for easier comparison
for(N=1; N<=5; N++) $N=""
# Skip messages that've happened before
if(U[$0]++) next;
# Put it back
$0=STR
}
1' /var/log/messages "`;
$errRpt =~ s/$hostname //g;
if ( $errRpt ne "" ) {
$message .= "###############################################\n";
$message .= "## Host $hostname\n";
$message .= "###############################################\n";
$message .= "TIMESTAMP DESCRIPTION\n";
$message .= $errRpt;
$message .= "\n";
}


and running it produces:

# ./test.pl
Global symbol "$N" requires explicit package name at ./test.pl line 74.
Execution of ./test.pl aborted due to compilation errors.
#

If I define $N within the script I still get errors:

# ./test.pl
bash: -c: line 2: syntax error near unexpected token `{'
bash: -c: line 2: `!((SD1 ~ ./test.pl) || (SD2 ~ ./test.pl)) { next }'
#


I am running the script on my AIX nim server which is to ssh onto the various Linux servers running a single command in it's shell - in this case the awk statement.

Can you advise please?

Thanks,
Neil.

---------- Post updated at 06:04 AM ---------- Previous update was at 04:47 AM ----------

Sorry, this is my test within the script:

#my $errRpt = `ssh $hostname "grep -s -e '$shortDate' -e '$shortDate2' /var/log/messages|egrep -v 'ssh|cr
on|warn|segfault|success|syslog|passwd|usersense|command|patrol' \n"`;
my $errRpt = `ssh $hostname "awk -v SD1='$shortDate' -v SD2='$shortDate2' '
# Ignore things that don't match SD1 and SD2
!((SD1 ~ \$0) || (SD2 ~ \$0)) { next }
# Ignore things that match these strings
/ssh|cron|warn|segfault|success|syslog|passwd|usersense|[Pp][Aa][Tt][Rr][Oo][Ll]/ { next }
/multipathd/ {
STR=\$0
# Blank the date fields for easier comparison
for(N=1; N<=5; N++) \$N=""
# Skip messages that've happened before
if(U[\$0]++) next;
# Put it back
\$0=STR
}
1' /var/log/messages "`;

And this is what I get when I run it so not sure if I've got the awk syntax correct within the Perl script.

# ./test.pl
bash: -c: line 2: syntax error near unexpected token `{'
bash: -c: line 2: `!((SD1 ~ sh) || (SD2 ~ sh)) { next }'
#


Thanks
Neil.