22 May

Ano Bissexto

Olá,

Hoje estava organizando meus arquivos e encontrei um script que havia feito em perl bem simples para saber se o ano que informo é ou não bissexto. Abaixo está o código. :)

#!/usr/bin/perl -w
 
print -n "Informe o ano: ";
$ano = <STDIN>;
chomp $ano;
 
cal 2 $ano | grep -i 29 >> /dev/null
teste=`echo $?`
 
if ("$teste" == "0") {
print "O ano "$ano" é bissexto!"
}
else {
echo "O ano "$ano" não é bissexto!"
}

:wq!

Tags:

Anúncio provido pelo BuscaPé


This website uses IntenseDebate comments, but they are not currently loaded because either your browser doesn't support JavaScript, or they didn't load fast enough.

Post a comment