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