Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


write a script to check whether user enter a value is a
leap year or not?

Answers were Sorted based on User's Feedback



write a script to check whether user enter a value is a leap year or not?..

Answer / sourisengupta

#call this function by passing the year....


sub isLeapyear
{
$year=shift;
if($year%4==0){
if($year%100==0){
if($year%400==0)
return 1;
return 0;
}
return 1;
}
}

Is This Answer Correct ?    14 Yes 2 No

write a script to check whether user enter a value is a leap year or not?..

Answer / subhash chandran

#The logic is that the year is either divisible by both
100 and 4 , OR its only divisible by 4 not by hundred
if($Year%400 == 0 || ($Year%100 != 0 && $Year%4 == 0))
{
print "Leap year \n";
}
else
{
print "Not Leap \n";
}

Is This Answer Correct ?    8 Yes 0 No

write a script to check whether user enter a value is a leap year or not?..

Answer / sourisengupta

#call this function by passing the year....


sub isLeapyear
{
$year=shift;
if($year%4==0){
if($year%100==0){
if($year%400==0)
return 1;
return 0;
}
return 1;
}
}

Is This Answer Correct ?    7 Yes 2 No

Post New Answer

More CGI Perl Interview Questions

How to read a single line from a file in perl?

0 Answers  


Explain join function in perl?

0 Answers  


Which has highest precedence in between list and terms? Explain?

0 Answers  


You want to empty an array. How would you do that?

0 Answers  


Define dynamic scoping.

0 Answers  


What does the q{ } operator do?

0 Answers  


you are required to replace a char in a string and store the number of replacements. How would you do that?

0 Answers  


How can we create perl programs in unix, windows nt, macintosh and os/2 ?

0 Answers  


Explain 'grep' function.

0 Answers  


List the data types that Perl can handle?

0 Answers  


What are the advantages of perl programming?

0 Answers  


What are the various flags/arguments that can be used while executing a perl program?

0 Answers  


Categories