Formatting output

[mehj123]

HI..

i am writing a program to print the calendar of a particular month. the month is given by the user as input, the user also provides the first day of the month i.e if the user enters mon and oct, Oct 1st is a monday.. and the rest of the days are printed accordingly..

 
#!/Perl/bin/perl
use strict;
my $month = undef;
my $day = undef;
my $e = undef;
my $i = undef;
my $r = undef;
my $days = undef;
my $key = undef;
my @arr= ();
my %Day = ();
my %week = ();
my %nameofday = ();
print "\nEnter month\n";
$month = <STDIN>;
chomp($month);
$month = uc($month);
print "\nEnter day\n";
$day = <STDIN>;
chomp($day);
$day = uc($day);
if(($month eq 'APR')||($month eq 'JUN')||($month eq 'SEP')||($month eq 'NOV'))
{
$days = 30;
 
}
elsif($month eq 'FEB')
{
$days = 28;
}
else
{
$days = 31;
}
%week = (); 
 
%nameofday = (
'0' =>'SUN',
'1' =>'MON',
'2' =>'TUE',
'3' =>'WED',
'4' =>'THU',
'5' =>'FRI',
'6' =>'SAT'
);
foreach $key (sort keys %nameofday)
{
if ($nameofday{$key} eq $day)
{
$e = $key;
last;
}
 
}
 
 
%Day = (
'0' =>$nameofday{int((($e)%7))},
'1' =>$nameofday{int((($e+1)%7))},
'2' =>$nameofday{int((($e+2)%7))},
'3' =>$nameofday{int((($e+3)%7))},
'4' =>$nameofday{int((($e+4)%7))},
'5' =>$nameofday{int((($e+5)%7))},
'6' =>$nameofday{int((($e+6)%7))}
);
for($i = 0; $i <= 6;$i++)
{
$r = $i+1;
@arr= ();
while($r <= $days)
{
push(@arr,$r);
$r = $r + 7;
 
}
$week{$i} = [@arr];
}
print "\nCalendar for the month of $month\n\n";
foreach $key (sort keys %Day)
{
print "$Day{$key}\t";
for( $i = 0; $i <= $#{$week{$key}}; $i++)
{
print "$week{$key}[$i]\t";
}
print "\n";
}
 
 

But while printing I want to print the output like a normal calendar.. But I am only able to get the output as this.

 Enter month
oct
Enter day
mon
Calendar for the month of OCT
MON     1     8     15     22     29
TUE     2     9     16     23     30
WED     3     10     17     24     31
THU     4     11     18     25
FRI     5     12     19     26
SAT     6     13     20     27
SUN     7     14     21     28
 

Can anyone tell me how can I print so that the dates come in 4 groupes(as in any normal calendar)..Or should I change the entire logic?I know its a pretty stupid program, but I am trying to learn perl.
Please do help... :)

[numberwhun]

HI..

i am writing a program to print the calendar of a particular month. the month is given by the user as input, the user also provides the first day of the month i.e if the user enters mon and oct, Oct 1st is a monday.. and the rest of the days are printed accordingly..

 
#!/Perl/bin/perl
use strict;
my $month = undef;
my $day = undef;
my $e = undef;
my $i = undef;
my $r = undef;
my $days = undef;
my $key = undef;
my @arr= ();
my %Day = ();
my %week = ();
my %nameofday = ();
print "\nEnter month\n";
$month = <STDIN>;
chomp($month);
$month = uc($month);
print "\nEnter day\n";
$day = <STDIN>;
chomp($day);
$day = uc($day);
if(($month eq 'APR')||($month eq 'JUN')||($month eq 'SEP')||($month eq 'NOV'))
{
$days = 30;
 
}
elsif($month eq 'FEB')
{
$days = 28;
}
else
{
$days = 31;
}
%week = (); 
 
%nameofday = (
'0' =>'SUN',
'1' =>'MON',
'2' =>'TUE',
'3' =>'WED',
'4' =>'THU',
'5' =>'FRI',
'6' =>'SAT'
);
foreach $key (sort keys %nameofday)
{
if ($nameofday{$key} eq $day)
{
$e = $key;
last;
}
 
}
 
 
%Day = (
'0' =>$nameofday{int((($e)%7))},
'1' =>$nameofday{int((($e+1)%7))},
'2' =>$nameofday{int((($e+2)%7))},
'3' =>$nameofday{int((($e+3)%7))},
'4' =>$nameofday{int((($e+4)%7))},
'5' =>$nameofday{int((($e+5)%7))},
'6' =>$nameofday{int((($e+6)%7))}
);
for($i = 0; $i <= 6;$i++)
{
$r = $i+1;
@arr= ();
while($r <= $days)
{
push(@arr,$r);
$r = $r + 7;
 
}
$week{$i} = [@arr];
}
print "\nCalendar for the month of $month\n\n";
foreach $key (sort keys %Day)
{
print "$Day{$key}\t";
for( $i = 0; $i <= $#{$week{$key}}; $i++)
{
print "$week{$key}[$i]\t";
}
print "\n";
}
 
 

But while printing I want to print the output like a normal calendar.. But I am only able to get the output as this.

 Enter month
oct
Enter day
mon
Calendar for the month of OCT
MON     1     8     15     22     29
TUE     2     9     16     23     30
WED     3     10     17     24     31
THU     4     11     18     25
FRI     5     12     19     26
SAT     6     13     20     27
SUN     7     14     21     28
 

Can anyone tell me how can I print so that the dates come in 4 groupes(as in any normal calendar)..Or should I change the entire logic?I know its a pretty stupid program, but I am trying to learn perl.
Please do help... :)

First, its not stupid unless you don't ask it. You have to code to learn and even writing a Hello World! program seems simplistic, but it helps you on your way to learning the language and its ins and outs.

I wanted to provide you at least a reply to your post, even though I haven't had a minute to look at it. I am hoping one of the experts can get to it soon. If not, I will see what I can do for you.

Regards,

Jeff