this is the easy way (requires the Date::Calc module): use Date::Calc qw(Week_Number Today);
print Week_Number(Today()); -----Original Message----- From: Frank [mailto:[EMAIL PROTECTED]] Sent: Wednesday, January 23, 2002 10:45 AM To: [EMAIL PROTECTED] Subject: Re: Number of the week On Wed, Jan 23, 2002 at 03:28:42PM -0000, Briac wrote: > And here's Another Way To Do It: > > #!/usr/bin/perl -w > use strict; > use POSIX qw(strftime); > > print strftime('%U',localtime) ---end quoted text--- On a good day that's how I'd do it ;) -- Frank Booth - Consultant Parasol Solutions Limited. (www.parasolsolutions.com) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
