Um pouco de PERL
Neste artigo tento compartilhar com vocês um pouco do que aprendi da linguagem PERL (Practical Extraction and Report Language). A Perl é uma linguagem sem burocracia, para todos os gostos. Tem uma enorme flexibilidade e poder de operação. Espero que o material possa contribuir com o enriquecimento da comunidade. Para aqueles que ainda não conhecem essa linguagem, fica o convite para a leitura...
Parte 4: Escalares
Trabalhando com variáveis escalares
A composição da variável escalar é extremamente simples, o $ (identificador da variável) seguido do nome. Uma variável escalar pode receber qualquer forma de valor escalar (números de ponto flutuante, inteiros, strings, e até fazer referência a uma outra variável).Usando variáveis escalares:
Ex1:
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 my $escalar = "valor escalar";
5 my $escalar = 45;
2 use strict;
3 use warnings;
4 my $escalar = "valor escalar";
5 my $escalar = 45;
O operador "my" declara uma ou mais variáveis privadas para existirem apenas dentro do bloco, sub-rotina, eval ou arquivo delimitador mais interno. Uma variável introduzida com "my" só é válida no escopo em que foi definida.
Ex2:
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 print "Digite o nome dessa comunidade: ";
5 my $comunidade = <STDIN>;
6 chomp $comunidade;
7 print "O nome da comunidade é $comunidade", "\n";
2 use strict;
3 use warnings;
4 print "Digite o nome dessa comunidade: ";
5 my $comunidade = <STDIN>;
6 chomp $comunidade;
7 print "O nome da comunidade é $comunidade", "\n";
Neste exemplo podemos perceber algo diferente, o "<STDIN>" entrada padrão. Neste caso, o valor da variável "$comunidade" será o texto digitado pelo usuário mais o caractere de nova linha "\n". A função "chomp" apaga um caractere de nova linha final do término de uma string contida numa variável.
Suponhamos que o usuário digite "viva o linux" e tecle enter. O valor de "$comunidade" será "viva o linux\n". Depois de utilizada a função "chomp" esse valor passará a ser "viva o linux".
Ex3:
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 my $escalar = "valor escalar";
5 my $string = "$escalar";
2 use strict;
3 use warnings;
4 my $escalar = "valor escalar";
5 my $string = "$escalar";
Neste exemplo declaro o valor da variável "$string" como sendo a variável "$escalar". Portanto, se eu usar o print para imprimir o valor de "$string" a saída será "valor escalar".
no caso, usou mais string do que tudo no mundo, e não usamos só string no nosso dia-a-dia, mas mesmo assim está muito bom este artigo, com uma linguagem bem sintetisada e fácil.
abraços.