En la programación, no se sabe cuando es un año bisiesto, no te viene una funcion que se llame aniobisiesto();, por eso tenemos que usar if, y aqui en este código hecho por mi en perl, podemos ver como se consigue.
#!/usr/bin/perl
print " |-----------------------------------|\n";
print " | Años bisiestos en perl |\n";
print " | www.code-makers.es |\n";
print " | youareowned@.hotmail.es |\n";
print " |-----------------------------------|\n";
print "Introduce el año que deseas averiguar:";
$anio = <STDIN>;
if ((($anio%4 ==0) && ($anio%100!=0)) || ($anio%400==0))
{
print("Este anio es bisiesto\n");
}
else {
print "Este anio no es bisiesto";
}
