Salve,

il seguente script mi riporta un calendarietto del mese corrente:
codice:
#!/perl -w

use strict;
use Time::Local;
use Carp;

my @days = qw(31 xx 31 30 31 30 31 31 30 31 30 31);

my @month = calendar(10, 2005, 1);

print "Mo Tu We Th Fr Sa Su\n";

  foreach (@month) {
    print map { $_ ? sprintf "%2d ", $_ : '   ' } @$_;
    print "\n";
  }
  
__END__;

Mo Tu We Th Fr Sa Su
                1  2 
 3  4  5  6  7  8  9 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 
31
mi piacerebbe incastrare questo calendario in una tabella html table,tr,td, ma la riga: map { $_ ? sprintf "%2d ", $_ : ' ' } @$_; è un pò criptica...

qualcuno mi può aiutare?

grazie