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 read a single line from a file in perl?
Explain join function in perl?
Which has highest precedence in between list and terms? Explain?
You want to empty an array. How would you do that?
Define dynamic scoping.
What does the q{ } operator do?
you are required to replace a char in a string and store the number of replacements. How would you do that?
How can we create perl programs in unix, windows nt, macintosh and os/2 ?
Explain 'grep' function.
List the data types that Perl can handle?
What are the advantages of perl programming?
What are the various flags/arguments that can be used while executing a perl program?