Vamos agora fazer algo bem parecido com o que fizemos anteriormente, só que ao invés de usarmos números inteiros, usaremos strings.
Algoritmo:
INICIO
declare nome;
nome = Andre
declare sobrenome;
sobrenome = Junior
imprima Ola nome sobrenome
FIM
Passando isso para o Perl, teríamos:
#!/usr/bin/perl
$nome = "Andre";
$sobrenome = "Junior";
print "Ola $nome $sobrenome \n\n\n";
exit;
Interpretando isso teríamos:
Ola Andre Junior
E logo após a quebra de 3 linhas.
Vamos fazer melhor agora, para simplificar ainda mais, vamos imprimir apenas uma nova variável que iremos criar chamado "nome_completo".
#!/usr/bin/perl
$nome = "Andre";
$sobrenome = "Junior";
$nome_completo = "$nome $sobrenome";
print "Ola $nome_completo \n\n\n";
exit;
Viram só?! Bem parecido com o que fizemos com os números anteriormente. Vamos agora juntar tudo que aprendemos com base no seguinte algoritmo:
INICIO
declare nome;
nome = Andre
declare sobrenome;
sobrenome = Junior
declare nome_completo;
nome_completo = nome sobrenome
declare id;
id = 46
declare pais;
pais = Brasil
imprima nome_completo (pular linha) id (pular linha) pais (pular linha)
FIM
Passando isso para o Perl teríamos:
#!/usr/bin/perl
$nome = "Andre";
$sobrenome = "Junior";
$nome_completo = "$nome $sobrenome";
$id = 46;
$pais = Brasil;
print "Nome completo: $nome_completo\nNumero de identificacao: $id\nPais:$pais\n";
exit;
Interpretando este código teríamos:
Nome completo: Andre Junior
Numero de identificacao: 46
Pais:Brasil
Conclusão
É sempre bom aprendermos uma nova linguagem de programação, como vocês podem ver aqui no VOL, eu venho escrevendo uma série de artigos sobre programação por aqui, seguem alguns deles.
Java:
C:
Ruby:
E agora Perl também. Pretendo dar continuidade aos artigos sobre programação.
Espero que estejam gostando do conteúdo. Comentários são bem vindos, críticas construtivas também, sugestões etc. Desculpem qualquer erro ou coisa do tipo, caso tenham dúvidas sintam-se a vontade para perguntar.
Att André S. Rosa Junior
www.juniorlinux.com.br