I have no problem subtracting dates as I use "localtime" and timelocal" routines provided by the standard Perl Module, "Time::Local".

Yes, I am having problem with how to output the records within an interval.

Infact, I wrote a subroutine, which I didn't put in the code that I posted. I know that it's not complete too.This is where I need help!

Here it is:
sub calculate_time {
 
   ($begin_Day,$begin_Month,$begin_Year,$begin_Hour,$begin_Minute,$beg
+in_Second)= $begin_time =~m#^(\d\d)/(\w\w\w)/(\d\d\d\d):(\d\d):(\d\d)
+:(\d\d)#;

($end_Day,$end_Month,$end_Year,$end_Hour,$end_Minute,$end_Second)= $da
+teproc =~m#^(\d\d)/(\w\w\w)/(\d\d\d\d):(\d\d):(\d\d):(\d\d)#;

   &Initialize;
   
   my $begin_seconds = timelocal($begin_Second, $begin_Minute, $begin_
+Hour, $begin_Day, $MonthToNumber{$begin_Month}, $begin_Year-1900);

   my $end_seconds = timelocal($end_Second, $end_Minute, $end_Hour, $e
+nd_Day, $MonthToNumber{$end_Month}, $end_Year-1900);
   
   my $elapsed = $end_seconds - $begin_seconds; 
     
   if ( $elapsed < $interval ){
      push (my @visual_page_values, {$processed_visual_pages{$dateproc
+}});   
   print "The End seconds are: $dateproc  @{$processed_visual_pages{$d
+ateproc}}\n";
   }else {
       $begin_time = $dateproc;
       push (@final_visual_pages, $dateproc);
       print " Final Visual pages are: @final_visual_pages\n"; 
   }
 
}

sub Initialize {
  my %MonthToNumber=(
        'Jan', '01',
        'Feb', '02',
        'Mar', '03',
        'Apr', '04',
        'May', '05',
        'Jun', '06',
        'Jul', '07',
        'Aug', '08',
        'Sep', '09',
        'Oct', '10',
        'Nov', '11',
        'Dec', '12',
    );
    
  my %NumberToMonth=(
        '01', 'Jan',
        '02', 'Feb', 
        '03', 'Mar', 
        '04', 'Apr', 
        '05', 'May', 
        '06', 'Jun', 
        '07', 'Jul', 
        '08', 'Aug', 
        '09', 'Sep', 
        '10', 'Oct', 
        '11', 'Nov', 
        '12', 'Dec', 
    );

}

[download]

In reply to Re: Re: Parsing of the web log file, access_log by Andy61
in thread Parsing of the web log file, access_log by Andy61

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.