gosa-si/tests/log-parser.pl

   1 #!/usr/bin/perl
   2 #===============================================================================
   3 #
   4 #         FILE:  log-parser.pl
   5 #
   6 #        USAGE:  ./log-parser.pl
   7 #
   8 #  DESCRIPTION:
   9 #
  10 #      OPTIONS:  ---
  11 # REQUIREMENTS:  ---
  12 #         BUGS:  ---
  13 #        NOTES:  ---
  14 #       AUTHOR:   (), <>
  15 #      COMPANY:
  16 #      VERSION:  1.0
  17 #      CREATED:  13.03.2008 14:51:03 CET
  18 #     REVISION:  ---
  19 #===============================================================================
  20
  21 use strict;
  22 use warnings;
  23 use Getopt::Long;
  24 use Data::Dumper;
  25
  26 my $pattern;
  27 my $log_file = "/var/log/gosa-si-server.log";
  28
  29
  30 ### MAIN ######################################################################
  31
  32 GetOptions(
  33                 "p|pattern=s" => \$pattern,
  34                 );
  35
  36 open(FILE, "<$log_file") or die "\ncan not open log-file '$log_file'\n";
  37 my @lines;
  38 my $messages = {};
  39
  40 # Read lines
  41 while ( my $line = <FILE>){
  42     chomp($line);
  43
  44         # start of a new message, plot saved log lines
  45         if ($line =~ /$pattern/ ) {
  46         print "$line\n";
  47     }
  48
  49 }
  50
  51 close FILE;