Yet Another CPAN Grep

Zeek-Log-Parse ( J/JO/JOHANNA/Zeek-Log-Parse-0.08.tar.gz, JOHANNA, 2019; MetaCPAN )

Zeek-Log-Parse/README.pod ( view source; MetaCPAN )

ecurity Monitor|http://www.zeek.org>.

If the L<JSON> module is installed, this module can also be used to parse Zeek log
files that were written in JSON format.

=head1 Constructor

The base construc

Zeek-Log-Parse ( J/JO/JOHANNA/Zeek-Log-Parse-0.08.tar.gz, JOHANNA, 2019; MetaCPAN )

Zeek-Log-Parse/lib/Zeek/Log/Parse.pod ( view source; MetaCPAN )

ecurity Monitor|http://www.zeek.org>.

If the L<JSON> module is installed, this module can also be used to parse Zeek log
files that were written in JSON format.

=head1 Constructor

The base construc

Zeek-Log-Parse ( J/JO/JOHANNA/Zeek-Log-Parse-0.08.tar.gz, JOHANNA, 2019; MetaCPAN )

Zeek-Log-Parse/lib/Zeek/Log/Parse.pm ( view source; MetaCPAN )

/;

our $VERSION = '0.08';

#@EXPORT_OK = qw//;

my $json = eval {
  require JSON;
  JSON->import();
  1;
}; # true if we support reading from json

BEGIN {
  my @accessors = qw/fh file line headers h

| !$self->{diamond} ) ) {
    croak("No filename given in constructor. Aborting");
  }

  $self->{json_file} = 0;
  $self->{names} = [ $self->readheader() ];
  $self->{fields} = $self->{names};
  $sel

     # Json file. stuff line in saved_line and try to extract header fields...
        croak("Parsing json formatted log files needs JSON module") unless ( $json );
        my $val = decode_json($line