Converter script perl para bash

Question

O script a seguir é sobre o monitoramento de alguns logs, o registro de data e hora $ é registrado em todas as linhas que algo acontece.

Example:
03:19:13.4 Begin summary update for ads.doc.inventory.InventoryItemSummary
03:19:33.9 CronServer:: DailyJob ads.tools.UpdateSummaries@17c5d6cf failed with exception ads.util.AppError: Cannot create UnitName from keys: Each
ads.util.AppError: Cannot create UnitName from keys: Each
at ads.db.DBObjectDefault.createFromKeys(DBObjectDefault.java:42)
at ads.db.DBTable.createFromKeys(DBTable.java:227)
at ads.db.DBValue.getValue(DBValue.java:621)
at ads.dbmanager.DBObjectsManager.initObjects(DBObjectsManager.java:400)
at ads.dbmanager.DBObjectsManager.reload(DBObjectsManager.java:447)
at ads.dbmanager.DBObjectsManager.loadFromStore(DBObjectsManager.java:497)
at ads.doc.inventory.InventoryItemSummary.refreshSince(InventoryItemSummary.java:173)
at ads.db.DBSummaryTable.refreshAll(DBSummaryTable.java:67)
at ads.tools.CronServer$DailyThread.run(CronServer.java:271)
[SOAPException: faultCode=SOAP-ENV:Client; msg=Error opening socket: java.net.ConnectException: Connection refused; targetException=java.lang.IllegalArgumentException: Error opening socket: java.net.ConnectException: Connection refused]
at org.apache.soap.transport.http.SOAPHTTPConnection.send(SOAPHTTPConnection.java:354)
at org.apache.soap.rpc.Call.invoke(Call.java:248)
at ads.support.SupportCall.call(SupportCall.java:56)
at ads.tools.SupportThread.run(SupportThread.java:101)
03:46:42.5 Periodic support request failed: ads.support.SupportException: Error opening socket: java.net.ConnectException: Connection refused
06:31:36.1 Upload failed: java.io.FileNotFoundException: c:/tmp/cygwin1.dll (No such file or directory)
08:01:08.0 connect from /172.22.3.28

Eu tenho este script perl

#!/usr/bin/perl

use strict;
use warnings FATAL => qw(all);

my $timestamp = qr/^\d+:\d+:\d+/;

my $block = "";
my $exception = 0;
while (<STDIN>) {

if ($block) {
# $_ is the current input line in perl.
    if ($_ =~ $timestamp) {
        print "\n\n***EXCEPTION***\n$block" if $exception;
        $block = "";
        $exception = 0;
    }
# This isn't actually a second regexp, it's a substring search.
# But you could use a regexp.
    $exception = 1 if (index($_,"Exception") >= 0);
    $block .= $_;
    next;
}
$block = $_ if ($_ =~ $timestamp);
}

e eu quero convertê-lo para o script bash.

Aqui está o que eu fiz até agora mas não funcionou,     #! / bin / bash

timestamp=^[0-9][0-9]\:[0-9][0-9]\:[0-9][0-9]\.[0-9]

block=""

exception=false

except=.*Exception.*

while read line
do

if [[ -z $block ]] ;
   then

    if [[ $line =~ $timestamp ]]
       then

            if [[ $exception=false ]]
               then
                     echo "\n\n***EXCEPTION***\n$block"
            fi
block=""
exception=false
    fi

    if [[ $line =~ $except ]]
       then
            exception=true
    fi

block=$block$line

fi

if [[ $line =~ $timestamp ]]
   then
    block=$line
fi

done

Qualquer ajuda com isso?

    

Answer 1

1. você tem que citar metacaracteres de padrão de nome de arquivo como * e [

   timestamp='^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\.[0-9]'
   except='.*Exception.*'
   

2. o comando test (também conhecido como [[ ) opera no número de argumentos que recebe. Portanto, é muito sensível ao espaço em branco:

       if [[ $exception = false ]]
   

3. há um grande erro lógico: você desmarca a variável block dentro do bloco [[ -z $block ]] : uma vez que block é diferente de zero, nunca pode ser desfeito.

4. Por que você está reescrevendo um script de trabalho?

Answer 2

Editar: a seguinte solução está mais próxima do script original do que o que eu escrevi inicialmente (verifica todo o corpo do bloco, não apenas a primeira linha, para a palavra "Exceção"):

block=()
newblock() {
    [[ ${block[*]} = *Exception* ]] && printf '%s\n' '' '' '***EXCEPTION***' "${block[@]}"
    block=("$line")
}
while IFS= read -r line; do
    case $line in
    ([0-9][0-9]:[0-9][0-9]:[0-9][0-9].[0-9]\ *)
            newblock
            ;;
    (*)
            block+=("$line")
            ;;
    esac
done
newblock