perl - How to Append Next Line to Current Line -

-

i struggling find way append next line current line if timestamp matches. here code far:

open(fh, "error_log:); @data = <fh> foreach $line (@data) {         if ( ($line =~ /notice/)) {                   $line =~ s/ /,/g;                     @l1 = split(/|notice|\[|\]|,mpmstats:,|\t|rdy,|bsy, +|rd,|wr,|ka,|log,|dns,|cls,|bsy:,|in,|/, $line);                 $line =~ s/|notice|\[|\]|,mpmstats:,|\t|rdy,|bsy,|rd,| +wr,|ka,|log,|dns,|cls,|bsy:,|in,//g;                                     print $line;

note printed see output. output following: 

wed,jun,13,10:40:35,2012,758,42,0,29,11,0,0,2 wed,jun,13,10:40:35,2012,29,mod_was_ap22_http.c wed,jun,13,10:41:35,2012,761,39,0,34,5,0,0,0 wed,jun,13,10:41:35,2012,34,mod_was_ap22_http.c wed,jun,13,10:42:35,2012,769,31,0,22,6,0,0,3 wed,jun,13,10:42:35,2012,22,mod_was_ap22_http.c wed,jun,13,10:43:35,2012,754,46,0,29,17,0,0,0

i number (29 on 2nd line) placed in csv form after others on first line corresponding timestamp. rest of line can deleted. if line has nothing below (ex. last line) append zero. thank help.

here part of input data requested:

[wed jun 13 01:41:24 2012    [error  [client 10.119.84.9     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:25 2012    [error  [client 10.119.84.9     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:25 2012    [error  [client 10.119.84.8     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:28 2012    [error  [client 10.119.116.8    file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:28 2012    [error  [client 10.119.84.8     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:34 2012    [notice     mpmstats: rdy 786 bsy 14 rd 0 wr 11 ka 3 log 0 dns 0 cls 0  [wed jun 13 01:41:34 2012    [notice     mpmstats: bsy: 11 in mod_was_ap22_http.c    [wed jun 13 01:41:34 2012    [error  [client 10.119.84.9     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html [wed jun 13 01:41:35 2012    [error  [client 10.119.84.9     file not exist: /ebiz/b2b/ihs70prd/htdocs/offline.b2bonline.html

your input strange. usually, see matched square brackets.

that aside, want this:

# assumes have perl 5.10 or autodie installed: failures in open, readline,  # or close die automatically use autodie;  # chunks of input ignore, see below... %ignorables = map { $_ => 1 } qw(     [notice mpmstats: rdy bsy rd wr ka log dns cls bsy: in );  # 3-arg open safer 2, lexical $fh better global fh glob open $error_fh, '<', 'error_log';   # iterates on lines in file, putting each $_ while (<$error_fh>) {      # worry lines containing [notice     if (/\[notice/) {          # split line fields, separated spaces, skip %ignorables         @line = grep { not defined $ignorables{$_} } split /\s+/;          # more cleanup         s/^\[//g @line; # remove [ [foo          # output line         print join(",", @line);          # assuming second line has "in" in it,          # whatever condition fits data...         if (/\bin\b/) {  # \b matches word edges, e.g., avoids matching "glint"             print "\n";         }         else {             print ",";         }     } }  close $error_fh;

i did not compile this, can't guarantee didn't typo somewhere.

the key here first print without newline, end comma. then, add newline when detect second line.

you instead declare @line outside loop , use accumulate fields until need output them newline on end.


Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c# - Copy ObservableCollection to another ObservableCollection -

-
how copy observablecollection item observablecollection without reference of first collection? here observablecollection item value changes affecting both collections. code private observablecollection<ratemodel> _allmetalrate = new observablecollection<ratemodel>(); private observablecollection<ratemodel> _metalrateondate = new observablecollection<ratemodel>(); public observablecollection<ratemodel> allmetalrate { { return this._allmetalrate; } set { this._allmetalrate = value; notifypropertychanged("metalrate"); } } public observablecollection<ratemodel> metalrateondate { { return this._metalrateondate; } set { this._metalrateondate = value; notifypropertychanged("metalrateondate"); } } foreach (var item in metalrateondate) allmetalrate.add(item); what causing , how can solve it? you need clone object referenced item before it's a...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more