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 |
Write syntax to add two arrays together in perl?
What is cpan in perl?
Explain goto label?
What is the use of -n and -p options?
What's the difference between /^Foo/s and /^Foo/?
What does the qq{ } operator do?
Distinguish my and local?
Can we load binary extension dynamically?
What can be done for efficient parameter passing in perl?
Does Perl have objects? If yes, then does it force you to use objects? If no, then why?
What is Perl?
How do I replace every character in a file with a comma?