Developing in Perl: Develop an alarmclock 2-The "enter entry" subroutine

Developing in Perl is a series about creating specific perl programs. I will try to explain what each part of the program should do as well as give you the source code for use.

In this episode i write the "enter entry" subroutine. During this video i explain for what we needed the POSIX module and how to dereference an array.


Source Code for this episode:

sub enter_date
{
#Structure: dd.mm.jjjj-hh:mm-text
#prep vars
my $enter_i = 0;
my @enter_dates = @{$_[0]};
my $enter_length = 0;
my $enter_choice = 0;
my $enter_correct_entry = 0;
my $enter_entry = "";
my $enter_text = "";

#prep time
my ($enter_sec,$enter_min,$enter_hour;$enter_mday,$enter_mon,$enter_year,$enter_wday,$enter_yday,$enter_isdst) = localtime(time);
$enter_mon = $enter_mon + 1;
$enter_year += 1900;

if ($enter_mon less-than sign 10)
{
$enter_mon = "0" . $enter_mon;
}
if ($enter_mday less-than sign 10)
{
$enter_mday = "0" . $enter_mday;
}
if ($enter_min less-than sign 10)
{
$enter_min = "0" . $enter_min;
}


#Sub menue
print "Sub menue: Enter Date\n";
do
{
print "\t1)New Time\n\t2)New Date\n";
print "\tChoose:\t";
$enter_choice = STDIN; # Please exchange with a greater-than and less-then sign
chomp ($enter_choice)
}
until ($enter_choice == 1 or $enter_choice == 2);

if ($enter_choice == 1) #New Time
{
do
{
print "\t\tPlease enter time: hh:mm\n";
print "\t\t\tEntry:\t";
$enter_entry = STDIN; # Please exchange with a greater-than and less-then sign
chomp($enter_entry);
print "Completing entry...\n";
$enter_entry = $enter_mday . "." . $enter_mon . "." . $enter_year . "-" . $enter_entry;
$enter_correct_entry = check_entry($enter_entry);
}
until ($enter_correct_entry == 1);
}
elsif ($enter_choice == 2) #New Date
{
$enter_choice = 0;
do
{
print "\t\t1)Date with Time\n\t\t2)Date without Time\n";
print "\t\tChoose:\t";
$enter_choice = STDIN; # Please exchange with a greater-than and less-then sign
chomp($enter_choice);
}
until ($enter_choice == 1 or $enter_choice == 2);
if ($enter_choice == 1) #Date with Time
{
do
{
print "\t\tPlease enter time: dd.mm.jjjj-hh:mm\n";
print "\t\t\tEntry:\t";
$enter_entry = STDIN; # Please exchange with a greater-than and less-then sign
chomp ($enter_entry);
$enter_correct_entry = check_entry($enter_entry);
}
until ($enter_correct_entry == 1);
}
elsif ($enter_choice == 2) #Date without Time
{
do
{
print "\t\tPlease enter time: dd.mm.jjjj\n";
print "\t\t\tEntry:\t";
$enter_entry = STDIN; # Please exchange with a greater-than and less-then sign
chomp ($enter_entry);
print "Completing entry...\n";
$enter_entry = $enter_entry . "-" . $enter_hour . ":" . $enter_min;
$enter_correct_entry = check_entry($enter_entry);
}
until ($enter_correct_entry == 1);
}
}
print "\tPlease enter the text:\t";
$enter_text = STDIN; # Please exchange with a greater-than and less-then sign
chomp $enter_text;
$enter_entry = $enter_entry . "-" .$enter_text;
$enter_length = @enter_dates;
$enter_dates[$enter_length] = $enter_entry;

return(@enter_dates);
}