Question

IN PERL

Write a program that will ask the user for a number and will print all the integers in order starting from 1 until the number. Use the <> operator to ask for the user's input.

For this program you will write a countdown timer. Your time will count down from 1 minute (60 seconds) to 0. Once the timer gets to 0 seconds the system will display a message that reads: RING RING RING! -using do while-

Answer 1

use strict;
my $countdown = 1*60;
do
{
print "Enter Number: ";
my $num = <STDIN>;

for (my $i=1; $i <= $num; $i++) {
print "$i ";
}

$| = 1;

my $beginTime = time;
my $endTime = $beginTime + $countdown;

for (;;)
{
my $time = time;
last if ($time >= $endTime);
printf(" %02d:%02d:%02d",($endTime - $time) / (60*60),($endTime - $time) / (60) % 60,($endTime - $time) % 60,);
}

}while $countdown < 0;

printf(" ");
printf("RING RING RING!");

if you have any doubt then please ask me without any hesitation in the comment section below , if you like my answer then please thumbs up for the answer , before giving thumbs down please discuss the question it may possible that we may understand the question different way and we can edit and change the answers if you argue, thanks :)