For 2023 (and 2024 ...) - we are now fully retired from IT training. We have made many, many friends over 25 years of teaching about Python, Tcl, Perl, PHP, Lua, Java, C and C++ - and MySQL, Linux and Solaris/SunOS too. Our training notes are now very much out of date, but due to upward compatability most of our examples remain operational and even relevant ad you are welcome to make us if them "as seen" and at your own risk.
Lisa and I (Graham) now live in what was our training centre in Melksham - happy to meet with former delegates here - but do check ahead before coming round. We are far from inactive - rather, enjoying the times that we are retired but still healthy enough in mind and body to be active!
I am also active in many other area and still look after a lot of web sites - you can find an index ((here)) |
Perl - turning seconds into days, hours, minutes and seconds
So often you'll be working within a program in seconds - elapsed times, delays, that sort of thing - but want to report times back to the user in terms of hours, minutes and seconds. The conventional programming way to do this is to do a series of divisions and grab the remainder, but in Perl you can use the gmtime function which converts a number of seconds from 1st January 1970 into a list of 9 elements of a date. Up to 365 days, you can simply take the days-into-year and hours, minutes and seconds value returned by gmtime.
# Convert seconds to days, hours, minutes, seconds
$seconds = 94054;
@parts = gmtime($seconds);
printf ("%4d %4d %4d %4d\n",@parts[7,2,1,0]);
When I run that:
earth-wind-and-fire:~/jun06 grahamellis$ perl ts
1 2 7 34
earth-wind-and-fire:~/jun06 grahamellis$
A conversion of 94.054 seconds into 1 day, 2 hours, 7 minutes and 34 seconds. (written 2006-06-17)
Associated topics are indexed as below, or enter http://melksh.am/nnnn for individual articles P216 - Perl - Handling Dates and Time [239] What and why for the epoch - (2005-03-08) [454] Time conversions in Perl - (2005-10-02)
Some other Articles
King Edward VII - days of empireOur new .eu top level domainFinding the language preference of a web site visitorDiscounts and approved supplier listsPerl - turning seconds into days, hours, minutes and secondsJourney planning - Xephos v Transport DirectMuch more that the world cupHuge data files - what happened earlier?Great new inventionsSelf help in Perl
|
4759 posts, page by page
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96 at 50 posts per page
This is a page archived from The Horse's Mouth at
http://www.wellho.net/horse/ -
the diary and writings of Graham Ellis.
Every attempt was made to provide current information at the time the
page was written, but things do move forward in our business - new software
releases, price changes, new techniques. Please check back via
our main site for current courses,
prices, versions, etc - any mention of a price in "The Horse's Mouth"
cannot be taken as an offer to supply at that price.
Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).
|