write a script to check whether user enter a value is a
leap year or not?
Answers were Sorted based on User's Feedback
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 |
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 |
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 |
How to close a file in perl?
What is the difference between perl list and perl array?
What do the symbols $ @ and % mean when prefixing a variable?
How can you define “my” variables scope in Perl and how it is different from “local” variable scope?
Mention how many ways you can express string in Perl?
Explain ivalue?
Explain lists ?
What is the difference between single (') and double (") quote in a string in perl?
When do you use perl programming?
Explain the difference between declarations of 'my' and 'local' variable scope in perl?
What are the steps involved when the cgi program starts running?
What does redo statement do in perl?