http://qs321.pair.com?node_id=468893


in reply to Making a Calendar in Perl?

Looks pretty easy to me:

use strict;
use warnings;

  use HTML::Calendar::Simple;

  my $cal = HTML::Calendar::Simple->new;

  $cal->daily_info
    ({
    'day' => 22,
    'text' => 'Post an answer to the calendar question on PM.'
    });
  print join "</tr>\n", split "</tr>", $cal->html;

[download]

Jun 2005

Sun Mon Tue Wed Thu Fri Sat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Post an answer to the calendar question on PM.
23
24
25
26
27
28
29
30

Update: The join/split in the print is not required, it breaks up the output a little though to make it easier to check.

Perl is Huffman encoded by design.

In Section Seekers of Perl Wisdom