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 [...]
Na universidade na cadeira de Desenvolvimento, criávamos muitos scripts simples como o que mostrarei abaixo.
Ele está comentado já para facilitar o entendimento dos IF e ELSIF.
Basta colocar num arquivo dar permissão e executar…
Muito simples de fazer e mais ainda executar!
#!/usr/bin/perl -w
# RECEBIMENTO DE DADOS.
print "Entre com o valor de cada lado do triângulo:\n";
print "Lado 1:\n";
$v1 [...]












