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 #===============================================================================
21 use strict;
22 use warnings;
23 use Getopt::Long;
24 use Data::Dumper;
26 my $pattern;
27 my $log_file = "/var/log/gosa-si-server.log";
30 ### MAIN ######################################################################
32 GetOptions(
33 "p|pattern=s" => \$pattern,
34 );
36 open(FILE, "<$log_file") or die "\ncan not open log-file '$log_file'\n";
37 my @lines;
38 my $messages = {};
40 # Read lines
41 while ( my $line = <FILE>){
42 chomp($line);
44 # start of a new message, plot saved log lines
45 if ($line =~ /$pattern/ ) {
46 print "$line\n";
47 }
49 }
51 close FILE;