https://wiki.skytech.dk/index.php?action=history&feed=atom&title=Perl_-_log_with_finer_timestaps_%28milliseconds%29Perl - log with finer timestaps (milliseconds) - Revision history2026-04-03T20:59:11ZRevision history for this page on the wikiMediaWiki 1.45.1https://wiki.skytech.dk/index.php?title=Perl_-_log_with_finer_timestaps_(milliseconds)&diff=1527&oldid=prev80.166.222.82 at 08:26, 13 October 20082008-10-13T08:26:46Z<p></p>
<p><b>New page</b></p><div>[[Category:Linux]]<br />
<br />
Create the logger subrutine and just call it with &logStuff(...)<br />
<br />
'''And remember to add the needed module in the top!!'''<br />
<pre><br />
use Time::HiRes qw ( gettimeofday );<br />
<br />
[....]<br />
<br />
sub logStuff<br />
{<br />
my $sFile = '/usr/lib/postgresql/8.3/bin/logs/sync_timer.log';<br />
my $sData = shift;<br />
open (debuglogger, ">>$sFile");<br />
my ($s, $usec) = gettimeofday();<br />
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);<br />
print debuglogger "$hour:$min:$sec.$usec:\t$sData\n";<br />
close (debuglogger);<br />
}<br />
</pre></div>80.166.222.82