Does this code produce the results you need? For any line that doesn't match "dates processed:" it pushes an empty array reference onto the @results array just so that you can tell there was a line that didn't match.

use strict; use warnings; use Data::Dumper; open my $logFH, q{<}, \ <<'EOD' or die qq{open: << HEREDOC: $!\n}; 2009-02-02 06:12:57,500 dates processed: 2009-01-31, 2009-01-29, 2009- +01-30 2009-02-18 06:03:47,713 dates processed: 2009-02-16, 2009-02-17 Different line here 2009-02-19 05:58:29,138 dates processed: 2009-02-18 EOD my @results = (); while( <$logFH> ) { chomp; push( @results, [] ), next unless m{dates processed:}; my @dates = m{(\d{4}-\d\d-\d\d)}g; push @results, \ @dates; } close $logFH or die qq{close: << HEREDOC: $!\n}; print Data::Dumper->Dumpxs( [ \ @results ], [ qw{ *results } ] );

The output.

@results = ( [ '2009-02-02', '2009-01-31', '2009-01-29', '2009-01-30' ], [ '2009-02-18', '2009-02-16', '2009-02-17' ], [], [ '2009-02-19', '2009-02-18' ] );

I hope this is useful to you.

Cheers,

JohnGG


In reply to Re: regex: extract multiple number of date patterns from certain lines by johngg
in thread regex: extract multiple number of date patterns from certain lines by Random_Walk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.