POSIX::strftime can simplify that - the %U, %V, %W formats give the week of the year by different reckonings. How about subtracting the week of the year for the first of the month from the current week of the year?

#!/usr/bin/perl

use POSIX 'strftime';

my @now = localtime;
my @first = @now;
$first[3] = 0;
print strftime('%V',@now) - strftime('%V',@first), $/
__END__
3
[download]

There are lots of ways to count weeks, depending on when you start. The strftime formats label them from 00 to 53. %U counts the first sunday of the year as the start of week 01. %V follows ISO 8601:1988 and calls week 01 the first with at least four days. %W is like %U, but counts the first Monday as the start of week 01.

If you want the weeks to start at 1 on the first of the month, you can just figure it from the day of the month: print 1 + int((localtime)[3]/7),$/;

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.