
Untitled
By: a guest on
Jun 27th, 2012 | syntax:
None | size: 1.50 KB | hits: 7 | expires: Never
How can I extract specific data from a log file?
17:24:09.574 SqlProperty - Connecting to database.
17:24:09.604 SqlProperty - Connecting to database.
17:24:09.626 Setting Type = Gen
17:24:09.633 Setting SAPTableInUse = No
17:24:09.633 DEBUG SAP transfer material: Material Transfer disabled,MaterialTransferNullObject constructed.
17:24:09.646 Setting SafeEnabled = No
17:24:09.646 Setting TimeEnabled = No
17:24:09.646 Setting OrderEnabled = No
17:24:09.646 Setting RemoteS = Yes
17:24:09.647 Setting nickname = rrr
17:24:09.647 Setting MCName =
17:24:09.647 Setting LMSName =
$hash{$1} = $2 if /^d+:d+:d+.d+ Setting (.+?) = (.*?)s*$/;
use strict;
use warnings;
my %setting;
while (<DATA>) {
next unless /^[d:.]+s*Settings*(w+)s*=s*(.*)/;
$setting{$1} = $2;
}
while (my ($k, $v) = each %setting) {
print "$k => $vn";
}
__DATA__
17:24:09.574 SqlProperty - Connecting to database.
17:24:09.604 SqlProperty - Connecting to database.
17:24:09.626 Setting Type = Gen
17:24:09.633 Setting SAPTableInUse = No
17:24:09.633 DEBUG SAP transfer material: Material Transfer disabled,MaterialTransferNullObject constructed.
17:24:09.646 Setting SafeEnabled = No
17:24:09.646 Setting TimeEnabled = No
17:24:09.646 Setting OrderEnabled = No
17:24:09.646 Setting RemoteS = Yes
17:24:09.647 Setting nickname = rrr
17:24:09.647 Setting MCName =
17:24:09.647 Setting LMSName =
nickname => rrr
OrderEnabled => No
SAPTableInUse => No
MCName =>
RemoteS => Yes
Type => Gen
TimeEnabled => No
LMSName =>
SafeEnabled => No