Programando em Perl (parte 2)
Nesta segunda parte da série programando em Perl veremos como declarar e manipular arrays.
Parte 3: Utilização das variáveis com os arrays
Uma coisa interessante é que da para usar as variáveis e os arrays juntos, como por exemplo, para mostrarmos a quantidade de elementos no array, poderíamos fazer o seguinte:
O que fizemos:
Na parte:
$x = $#alf + 1;
Declaramos a variável x, pedindo pedindo o índice do último elemento do array, e o +1 foi devido a que a contagem começa do zero, digamos assim.
Vamos agora brincar um pouco com os arrays:
Como saída teríamos:
No array alf temos 3 elementos. Sao eles:
a b c
Ja no array num temos 6 elementos. Sao eles:
1 2 3 4 5 6
Vamos citar 3 classicas do Led Zeppelin:
Ramble on, Travelling Riverside Blues e Stairway to Heaven
Vamos agora citar 2 albuns do Led Zeppelin...
Physical Graffiti e Houses of the Holy
Creio que eu não precise explicar o código acima, pois tudo que está ali foi ensinado na parte 1 e até esta parte do artigo.
#!/usr/bin/perl
@alf = ("a","b","c");
$x = $#alf + 1;
print("No array temos $x elementos. Sao eles: \n@alf \n\n");
exit;
@alf = ("a","b","c");
$x = $#alf + 1;
print("No array temos $x elementos. Sao eles: \n@alf \n\n");
exit;
O que fizemos:
Na parte:
$x = $#alf + 1;
Declaramos a variável x, pedindo pedindo o índice do último elemento do array, e o +1 foi devido a que a contagem começa do zero, digamos assim.
Vamos agora brincar um pouco com os arrays:
#!/usr/bin/perl
@alf = ("a","b","c");
@num = ("1","2","3","4","5","6");
@music = ("Ramble on,","Travelling Riverside Blues e","Stairway to Heaven");
@albuns = ("Physical Graffiti e","Houses of the Holy");
$x = $#alf + 1;
$y = $#num + 1;
$s = $#music + 1;
$k = $#albuns + 1;
$banda = "Led Zeppelin";
print("No array alf temos $x elementos. Sao eles: \n@alf \n\n");
print("Ja no array num temos $y elementos. Sao eles: \n@num\n\n");
print("Vamos citar $s classicas do $banda: \n@music\n\n");
print("Vamos agora citar $k albuns do $banda... \n@albuns \n\n");
exit;
@alf = ("a","b","c");
@num = ("1","2","3","4","5","6");
@music = ("Ramble on,","Travelling Riverside Blues e","Stairway to Heaven");
@albuns = ("Physical Graffiti e","Houses of the Holy");
$x = $#alf + 1;
$y = $#num + 1;
$s = $#music + 1;
$k = $#albuns + 1;
$banda = "Led Zeppelin";
print("No array alf temos $x elementos. Sao eles: \n@alf \n\n");
print("Ja no array num temos $y elementos. Sao eles: \n@num\n\n");
print("Vamos citar $s classicas do $banda: \n@music\n\n");
print("Vamos agora citar $k albuns do $banda... \n@albuns \n\n");
exit;
Como saída teríamos:
No array alf temos 3 elementos. Sao eles:
a b c
Ja no array num temos 6 elementos. Sao eles:
1 2 3 4 5 6
Vamos citar 3 classicas do Led Zeppelin:
Ramble on, Travelling Riverside Blues e Stairway to Heaven
Vamos agora citar 2 albuns do Led Zeppelin...
Physical Graffiti e Houses of the Holy
Creio que eu não precise explicar o código acima, pois tudo que está ali foi ensinado na parte 1 e até esta parte do artigo.
Programo em C, Python e PHP, porém sempre ouvi falarem muito bem de Perl e tinha curiosidade.
Aguardo ansioso o artigo sobre C++!
Abraço!
Luís Eduardo Boiko Ferreira