in reply to Perl / Tk Calendar - advice please.
Hi jdtoronto,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Have you considered using Tk::Month?
There's a simple example of how to use it here.
Even if you decide to go a similar (or different) route, I'd recommend trying it out, as it might give you some good ideas.
You will probably want to play around with printformat, though. The value used in the node I referred to above doesn't send the day of the month to the anonymous subroutine.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Perl / Tk Calendar - advice please.
by jdtoronto (Prior) on Mar 14, 2007 at 02:43 UTC | |
Re^2: Perl / Tk Calendar - advice please.
by Anonymous Monk on Apr 01, 2012 at 04:44 UTC | |
by zentara (Archbishop) on Apr 01, 2012 at 14:25 UTC |
In Section
Seekers of Perl Wisdom