#!/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!"
}

#!/usr/bin/perl -w
 
# RECEBIMENTO DE DADOS.
print "Entre com o valor de cada lado do triângulo:\n";
 
print "Lado 1:\n";
$v1 = ;
chomp $v1;
 
print "Lado 2:\n";
$v2 = ;
chomp $v2;
 
print "Lado 3:\n";
$v3 = ;
chomp $v3;
 
# O COMPRIMENTO DE UM LADO DO TRIÃNGULO É SEMPRE MENOR QUE A SOMA DOS OUTROS DOIS.
if ( ( $v1 > ( $v2 + $v3 ) ) and ( $v2 > ( $v1 + $v3 ) ) and ( $v3 > ( $v1 + $v2 ) ) ) {
print "Não é um triângulo.\n";
}
 
# NENHUM LADO DE UM TRIANGULO PODE SER ZERO.
elsif ( ( $v1 == 0 ) or ( $v2 == 0 ) or ( $v3 == 0 ) ) {
print "Nenhuma lado de um triângulo pode ser zero.\n";
}
 
# SENDO TODOS OS LADOS IGUAIS EH UM TRIANGULO EQUILATERO.
elsif ( $v1 == $v2 and $v1 == $v3 and $v2 == $v3 ) {
print "Ele é um triângulo equilatero.\n";
}
 
# TENDO DOIS LADOS IGUAIS SERÁ UM TRIANGULO ISOSCELES.
elsif ( ( $v1 == $v2 and $v1 != $v3 ) or ( $v1 == $v3 and $v1 != $v2 ) or ( $v2 == $v3 and $v2 != $v1 ) ) {
print "Ele é um triângulo isósceles.\n";
}
 
# TENDO TODOS OS LADOS DIFERENTES SERÁ ESCALENO.
else {
print "Ele é um triângulo escaleno.\n";
}