Databases
StackOverflow2013
Postsdbo
POIssue converting epoch time to standard convention in Perl
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POIssue converting epoch time to standard convention in Perl
    primarykey
    data
    text
    <p>In Perl I am trying to convert a variable containing millisecond epoch time variable <code>$adjSendTime</code> to standard convention using the following code:</p> <pre><code>$timeLabel = sprintf("%02d:%02d:%02d", (($adjSendTime/3600000) % 24), (($adjSendTime/60000) % 60), $currentSecond); </code></pre> <p>The issue is that whenever it has reach the 59th second the minute portion of the time will be on minute higher than it should be. The output looks something like</p> <pre><code>11:58:57 11:58:58 11:59:59 11:59:00 11:59:01 </code></pre> <p>The calculation for <code>$adjSendTime</code> is as follows:</p> <pre><code># Determine number of hours between local time and UTC. # This code is needed to compare timestamps in local time with those in epoch time. # This code only works in time zones with current time less than UTC time. @timeArray = gmtime(); $utcHour = $timeArray[2]; @timeArray = localtime(); $localHour = $timeArray[2]; # calculate number of milliseconds between current time and UTC time $utcShift = ($utcHour - $localHour + 24) % 24; $utcShift = $utcShift*60*60*1000; ... if ($field[$i] =~ /^\[29997]=/) { $sendTimestamp = $field[$i]; $sendTimestamp =~ s/.*=(\d*).*/$1/; # convert send time to local time. $adjSendTime = $sendTimestamp - $utcShift; } </code></pre> <p>The calculation for <code>$currentSecond</code> is in two different parts of the code. The first piece occurs the first time through the loop when <code>$FIRST = 1;</code>. <code>$FIRST</code> is never reset to 1 again after this if statement is executed. </p> <pre><code>$second = ($adjSendTime/1000) % 60; if ($FIRST) { $currentSecond = $second; $prevSeqId = $seqId; $FIRST = 0; } </code></pre> <p>and in the subroutine <code>resetCounters</code> where every value that is calculated in the script is reinitialize to 0. This subroutine is called is called at the start of every new second in the input log file.</p> <pre><code>sub resetCounters # ----------------------------------------------------------- # resets all metrics counters # ----------------------------------------------------------- { $tps = 0; $mps = 0; $batch = 0; $maxBatch = 0; $avgBatch = 0; $latency = 0; $latencySum = 0; $maxLatency = 0; $avgLatency = 0; $overThreshold = 0; $percentOver = 0; $zeroLatencyCount = 0; $currentSecond = $second; @latencies = (); } </code></pre> <p>Can anyone help me figure out why Perl would be doing this because when I find the remainder via long hand division I do not have this issue? I realize that I could use datetime to possibly find the hour and minute for this calculation, but I would still be interested in determining what is wrong with my calculation so that I can hopefully avoid issues like this in the future when using <code>%</code> in Perl.</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USMatt Pascoe
    1. USMatt Pascoe
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    3. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. This table or related slice is empty.
      1. VTDownMod
    2. VO
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. This table or related slice is empty.
      1. VTDownMod
    3. VO
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. This table or related slice is empty.
      1. VTUpMod
    1. COWhere are you getting `$currentSecond` from? It would appear you're incrementing that somehow while not changing `$adjSendTime`
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. USBrian Roach
    2. COPlease show your code for the complete loop. It looks like the error is in a statement preceding the one you have shown.
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. USBorodin
    3. COI must apologize for my lack of Perl experience to all and the fact that I cannot put all my code for you to look at. Company policy says I can only post required portions of code online to solve issue and the less the better..
      singulars
      1. POIssue converting epoch time to standard convention in Perl
      1. USMatt Pascoe
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload