for $seconds(3598 .. 3661) { $_=gmtime $seconds;/(\d\d):(\d\d):(\d\d)/; 0+$1 && printf "%d hour ",$1; 0+$2 && printf "%d minutes",$2; 0+$3 && (($1 || $2) && print (" and "),printf "%d seconds",$3);print "\n" } give me: ---------- Perl ---------- 59 minutes and 58 seconds 59 minutes and 59 seconds 1 hour 1 hour and 1 seconds 1 hour and 2 seconds 1 hour and 3 seconds 1 hour and 4 seconds 1 hour and 5 seconds 1 hour and 6 seconds 1 hour and 7 seconds 1 hour and 8 seconds 1 hour and 9 seconds 1 hour and 10 seconds 1 hour and 11 seconds 1 hour and 12 seconds 1 hour and 13 seconds 1 hour and 14 seconds 1 hour and 15 seconds 1 hour and 16 seconds 1 hour and 17 seconds 1 hour and 18 seconds 1 hour and 19 seconds 1 hour and 20 seconds 1 hour and 21 seconds 1 hour and 22 seconds 1 hour and 23 seconds 1 hour and 24 seconds 1 hour and 25 seconds 1 hour and 26 seconds 1 hour and 27 seconds 1 hour and 28 seconds 1 hour and 29 seconds 1 hour and 30 seconds 1 hour and 31 seconds 1 hour and 32 seconds 1 hour and 33 seconds 1 hour and 34 seconds 1 hour and 35 seconds 1 hour and 36 seconds 1 hour and 37 seconds 1 hour and 38 seconds 1 hour and 39 seconds 1 hour and 40 seconds 1 hour and 41 seconds 1 hour and 42 seconds 1 hour and 43 seconds 1 hour and 44 seconds 1 hour and 45 seconds 1 hour and 46 seconds 1 hour and 47 seconds 1 hour and 48 seconds 1 hour and 49 seconds 1 hour and 50 seconds 1 hour and 51 seconds 1 hour and 52 seconds 1 hour and 53 seconds 1 hour and 54 seconds 1 hour and 55 seconds 1 hour and 56 seconds 1 hour and 57 seconds 1 hour and 58 seconds 1 hour and 59 seconds 1 hour 1 minutes 1 hour 1 minutes and 1 seconds
Mit freundlichen Grüssen Joachim Görner Informationsverarbeitung Systemtechnik Basisdienste (ISB) ADAC e.V., Am Westpark 8, 81373 München Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 <mailto:[EMAIL PROTECTED]> www.adac.de > -----Ursprüngliche Nachricht----- > Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Gesendet: Dienstag, 2. November 2004 19:02 > An: [EMAIL PROTECTED] > Betreff: Formatting seconds help > > > Does anyone have a simple routine or a way that I can > format my seconds. Say I have: > > $seconds = '3600'; > I want the output to say "1 hour" > > $seconds = '5567'; > I want the output to say "1 hour 54 minutes and 64 seconds" > > Something like that that will break down the amount of > days, hours, minutes, and seconds. > > Thank you > Allan > _______________________________________________ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs