Curso Básico de Perl

[mrx]

O que é Perl
1.1 Por que usar a Perl
1.2 Desenvolvimento Rápido
1.3 Compilada ou interpretada
1.4 Flexibilidade
1.5 Estencibilidade
1.6 Segurança
1.7 Ubiqüidade
1.8 Por que você deseja Usar Perl
Um programa basico
2.1 A Primeira linha
2.2 Comentários
2.3 Impresão simples
Executando um programa
Variáveis escalares
4.1 Operadores
4.2 Interpolação
4.3 Exercício
Arrays
5.1 Tratamento de array
5.2 Imprimindo arrays
5.3 Exercício
Arquivos
6.1 Exercício
Controle de estrutura
7.1 foreach
7.2 Testes
7.3 for
7.4 while e until
7.5 Exercício
Condicionais
8.1 Exercício
String
9.1 Expressões regulares
9.2 A variável especial $_
9.3 Mais expressões regulares (RE)
9.4 Alguns exemplos de RE
9.5 Exercícios
Substituição e translação
Opções
Marcações
Translação
Exercício
Split
Exercício
Arrays associativos
Operadores
Variáveis de ambiente
Subrotinas
Parametros
Retorno de valores
Variáveis locais

--------------------------------------------------------------------------------



1 - O que é Perl 

Perl significa "Practical Extraction and Report Language"  roda em UNIX, MVS, VMS, MS/DOS, Windos, Macintosh, OS/2, Amiga e outros sistemas operacionais. Perl possui funções poderosas para manipulação de textos.A Perl é muito popular para programação de formulários WWW e gateway entre sistemas, banco de dados e usuários, além de ser muito utilizada em tarefas administrativas de sistemas UNIX, onde a linguagem nasceu e cresceu. 

    Por que usar a Perl 
    As pessoas estão usando a linguagem Perl porque é rápida, eficiente e de fácil manutenção na programação de uma ampla faixa de tarefas, em particular aquelas que envolvem a manipulação de arquivos de texto. Além disso, existem muitas pessoas usando Perl que estão preparandas para compartilhar seus códigos. 

    Desenvolvimento Rápido 
    Muitos projetos de programa são de alto nível em vez de baixo nível. Isso significa que eles tendem a não envolver manipulações em nível de bits, chamadas diretas ao sistema operacional. Em vez disso, eles focalizam a leitura de arquivos, a reformatação de sísas e gravação em saída padrão. A Perl é vigorosa; um pequeno código Perl faz muito. Em termos de linguagem de programação, isso geralmente significa que o código será difícil de ler e penoso de escrever. Mas embora Larry Wall, o autor da Perl, diga que a linguagem é mais funcional do que elegante, a maioria dos programadores rapidamente descobre que o código Perl é muito legível e que não é dificil tornar-se fluente ao escrevê-lo. 

    Compilada ou Interpretada? 
    A Perl pertence a qual dessas categorias ? 
    Bem, a Perl é um pouco especial a esse respeito; ela é um compilador que pensa ser um interpretador. A Perl compila código de programa em código executável antes de executá-lo, portanto existe um estágio de otimização e o código executável trabalha mais rapidamente. Entretanto ela não grava esse código em um arquivo executável separado. Em vez disso, armazena-o na memória e, depois, executa-o. 
    Isso significa que a Perl combina o ciclo de desenvolvimento rápido de uma linguagem interpretada com a execução eficiente de um código compilado. No entanto, as desvantagens correspondentes também estão lá: a necessidade de compilar o programa cada vez que ele é executado significa uma inicialização mais lenta do que uma linguagem puramente compilada e requer que os desenvolvedores distribuam o código-fonte para os usuários. 
    Na prática, essa desvantagem não são muito limitadoras. A fase de compilação é extremamente rápida, portanto talvez, você nem note alguma demora entre a ativação do script Perl e o início da execução. 
    Para finalizar, a Perl é compilada "nos bastidores" para uma execução rápida, mas você pode tratá-la como se fosse uma linguagem interpretada. 

    Flexibilidade 
    A perl não foi desenvolvida em um plano abstrato. Ela foi criada para resolver um problema particular e evoluiu de modo a   servir para um conjunto ainda mais amplo de problemas do dia-a-dia. 
    Ela poderia ter sido expandida para lidar com essas tarefas acrecentando-se mais e mais palavras-chave e operadores, o que tornaria a linguagem bem maior. Em vez disso, o núcleo da linguagem Perl iniciou pequeno e ficou mais refinado à medida que o tempo passou. Em alguns aspectos, ela na verdade diminuiu; o número de palavras reservadas da Perl 5 é realmente menos da metada do número de palavras reservadas da Perl 4. 
    Isso reflete uma preocupação de que a força da Perl resida na sua combinação única de eficiência e flexibilidade. A Perl em si tem crecido lenta e poderosamente, em geral de forma a permitir o acréscimo de melhorias e extensões em vez de receber amarrações. 

    Extensibilidade 
    Muito do crescimento da Perl como uma plataforma vem através do uso crescente de bibliotecas (Perl 4) e módulos (Perl 5). Esses são mecanismos que permitem ao desenvolvedores escrever partes auto-suficientes de código Perl que podem ser inseridos em uma aplicaç!ao Perl. 
    Esses add-ons variam de utilitário regularmente de alto nível, tais como um módulo que acrecenta tags HTML ao texto, até ferramentas de desenvolvimento de baixo nível, sujas e baixas, tais como os profiles e depuradores de códigos. 
    A possibilidade de usar extensões como essas é um avanço marcante no desenvolvimento de uma linguagem regularmente polida e tem ajudado a alimentar o crescimento no uso da Perl. Isso facilita aos desenvolvedores Perl compartilhar seus códigos com outras pessoas; a chegada dos objetos na Perl 5 torna possível as metodologias de projeto estruturado para aplicações Perl. A linguagem atingiu a maior idade sem perder sua flexibilidade ou sua força natural. 

    Segurança 
    A segurança é uma quetão importante ao escrever programas para sistemas administrativos e na Internet em geral. Usando a Perl para criar scripts no servidor web, você pode facilmente se resguardar contra aqueles usuários que tentam inserir, sorrateiramente, comandos no servidor para execuções em seu próprio benefício. Há também um excelente módulo na Perl 5 chamado pgperl, que permite ao seu servidor usar a técnicas públicas de codificação para salvaguardar dados importantes dos curiosos. 

    Ubiqüidade 
    Muitas pessoas na web já usam Perl! Caminhar a favor da corrente nem sempre é o me;hor método, mas Perl tem crescido com a web. Há bastante experiência acumulada se você precisar de conselhos. Os desenvolvedores Perl estão bem concientes das questões da web à medida que passam para a Perl. E muitos módulos da Perl foram construídos visando especialmente à web. 

    Por que você deseja Usar Perl 
    Existem muitas razões para usar a Perl. Ela é concisa, eficiente, flexível e versátil. A Perl é particularmente adequada para o ttrabalho de desenvolvimento na web onde a saída de texto é uma preocupação importante. Se as razões previamente descritas não são suficientes, considere isso: a Perl é totalmente grátis. 


2 - Um programa básico 
    Vejamos um programa básico para iniciar nossos estudos. 

    #!/usr/local/bin/perl 
    # 
    # Nosso primeiro programa 
    # 
 
    print 'Ola mundo.';     # display da mensagem 

    Agora vamos discutir cada uma destas partes. 

    A Primeira linha 
    Todo programa Perl inicia com esta linha 

    #!/usr/local/bin/perl 

    Esta linha pode variar de sistema para sistema. Esta linha informa onde está o compilador para rodar o programa Perl. 

    Se você não sabe onde esta o Perl no seu sistema, tente um dos comando abaixo (UNIX): 
    % which perl 
    ou 
    % where perl 
    ou 
    % find / -name perl -print 
    ou 
    ? Pergunte para o administrado da sua máquina... ) 

    Comentários 
    Comentários podem ser inseridos no programa com o símbolo #, e tudo que estiver depois do # até o final da linha é ignorado (com exceção da primeira linha) a unica forma de realizar comentários por vária linha é usando um # por linha. 

    Toda instrução Perl deve ser encerrada com um ponto e vírgula. Veja a última linha do programa acima. 

    Impresão simples 
     A função print imprime qualquer informação. No programa acima ela imprime a string Ola mundo. e foi encerrda com um ponto e vírgula. 
 
    Talvez o programa acima produza um resultado inesperado (não rode) o próximo passo e preparar o programa para rodar. 


3 - Executando um programa 
Usando o editor de texto da sua preferência digite o programa acima e salve. Emacs é um bom editor para esta finalidade por que ele tem um modo  Perl que formata as linhas quando você tecla tab (use 'M-xperl-mode'). Mas use o editor no qual você se sinta mais confortável. 

Após ter digitado e salvo o programa tenha certeza de que ele é executável usando o seguinte comando no prompt do UNIX: 
    % chmod 0755  

Agora para executar o programa basta digitar uma das linhas abaixo: 
    % perl  
    % ./ 
    %  

Se alguma coisa de errado acntecer talvez você receba uma mensagem de erro ou talvez não receba nada. Você pode rodar o programa no modo de notificação: 
    % perl -w  

Isto vai mostrar alertas  e outras mensagens antes da execução do programa. Para rodar o programa no modo debug use o seguinte comando: 
    % perl -d  

Quando o arquivo é executado  a Perl primeiramente compila e em seguida executa a versão compilada.Após uma pequena pausa para compilação o programa roda silenciosamente. 
 

4 - Variaveis escalares 
O tipo mais basico de variável em Perl e a variável escalar. Variáveis escalar podem conter úmeros, textos e letras e os números com as letras são perfeitamente intercambiáveis. Poe exemplo: 

    $prioridade = 9; 

Seta a variável escalar $prioridade para 9, mas você pode colocar uma string na mesma variável. 

    $prioridade = 'alta'; 

Perl pode receber números e strings, veja: 

    $prioridade = '9'; 
    $padrao     = '0009'; 

e pode realizar operações aritiméticas entre outras. 

Geralmente o nome da variavel consiste de números, letras e undescore, mas elas não pode iniciar com um número e com a variável especial $_. Perl diferencia cada baixa para casa alta, então $a é diferente de $A 

operadores 
A Perl usa todos os operadores aritméticos do C: 

    $a = 1 + 2;    # Soma 1 em 2 e armazena o resultado em $a 
    $a = 3 - 4;    # Subtrai 4 de 3 e armazena o resultado em $a 
    $a = 5 * 6;    # Multiplica 5 por 6 
    $a = 7 / 8;    # Divide 7 por 8 e obtem 0,875 
    $a = 9 ** 10;    # Eleva nove a décima potência 
    $a = 5 % 2;    # Armazena em $a o resto da divisão de 5 por 2 
    ++$a;        # Inclementa $a e depois retorna 
    $a++;        # Retorna $a e depois inclementa 
    --$a;        # Declementa $a e depois retorna 
    $a--;        # Retorna $a e depois declementa 

Para strings, estas são algumas das maneira: 

    $a = $b . $c;     # Concatena $b com $c 
    $a = $b x $c;    # $b é repetida $c vezes 

Para designar valores temos as seguintes formas: 

    $a = $b;     # Coloca em $a o conteúdo de $b 
    $a += $b;  # Soma o valor de $b ao valor de $a 
    $a -= $b;   # Subtrai o valor de $b do valor de $a 
    $a .= $b;   # Concatena $b a $a 

Note que quando a Perl designa um valor com $a = $b ela faz uma cópia de $b e depois coloca em $a. Se depois você alterar o conteúdo de $b isto não altera $a. 

Estes são apenas alguns dos operadores possíveis. 


Interpolação 
O código abaixo imprime banana e goiaba, usando concatenação: 

    $a = 'banana'; 
    $b = 'goiaba'; 
    print $a . ' e ' .  $b 

Isso seria melhor se incluíse-mos somente uma string, mas a linha 

    print '$a  e  $b'; 

imprime as literais $a  e  $b e isso não ajuda muito. Mas, podemos usar aspas duplas invés de aspas simples: 

    print "$a  e  $b"; 

As aspas duplas força a interpolação de qualquer código, incluindo a interpretação das variáveis. Esta é uma forma de tratamento muito original e simpática. Outros códigos que podem ser interpolados incluem caracteres especiais como nova linha (\n) e TAB (\t). 


Exercício 
Este exercíco é para re-escrever o programa "Ola mundo!": 
    a) A string deve estar armazena em uma variável; 
    b) Esta variável deve ser impressa com um caracter de nova linha. 
Use aspas duplas e não use concatenação. Tenha certeza de que o programa pode rodar antes de tentar processa-lo. 
   
Arrays 
Um dos tipos mais interesantes de variáveis é a variável array, ela é uma lista de variáveis escalares (isto é, números e strings). Variáveis array tem o formato semelhante ao da variável escalar exceto que elas são pré-fixadas com o símbolo @. O exemplo abaixo mostra uma lsiat de três elementos na variável array @frutas e dois elementos na variável @musica. 

    @frutas = ("banana", "goiaba", "mamao"); 
    @musica = ("MPB", "samba"); 

Você pode acessar o conteúdo de um array usando um índice que começa com zero e colchetes são usados para especificar o índice. O exemplo abaixo retona mamao, Note que trocamos @ por $, por que mamao é escalar. 

    $frutas[2] 


Tratamento de array 
Em toda a Perl a mesma expresão em um contexto diferente pode produzir um resultado diferente. O exemplo abaixo mostra que a primeira instrução é equivalente a segunda. 

    @maismusica = ("baiao", @musica, "pagode"); 
    @maismusica = ("baiao", "MPB", "samba", "pagode"); 

Para adicionar um novo elemento na array use a função push: 

    push(@frutas, "abacaxi"); 

agora abacaxi foi inserido no final da array frutas. Para colocar dois ou mais itens em um array use uma das seguintes formas: 

    push(@frutas, "abacaxi", "acerola"); 
    push(@frutas, ("abacaxi", "acerola"); 
    push(@frutas, @maisfrutas); 

A função push além de acresenta os novos elementos na array, retorna o novo número de elementos contido na array. 

Para remover o último item de uma lista e retorna-lo, use a função pop. Usando pop na nossa lista original, ela retorna mamao e @frutas fica com dois elementos: 

    $umafruta = pop(@frutas);    # Agora $umafruta = "mamao" 

então vimos que é possivel transforma uma variável array em uma variável escalar. A linha 

    $f  =  @frutas; 

armazena em $f o número de elementos em @frutas, mas a linha 

    $f  =  "@frutas"; 

retorna quais são os elemento com um espaço em branco entre eles. Este espaço ode ser trocado por qualquer caracter, para isto basta trocar o valor da variável especial $". Esta é apenas uma das várias variáveis especiais da Perl 

Arrays podem ser usadas para atribuir valores a variáveis escalares, veja: 

    ($a, $b)  =  ($c, $d)    # É semelhante a $a  =  $c;  $b  =  $d 
    ($a, $b)  =  @frutas;    # Colocar os dois primeiros itens da variável @frutas nas variávesi $a e $b. 
    ($a, @qualquerfruta)  =  @frutas;    # coloca o primeiro elemento da variável @frutas em $a, os demais são 
                                                            # são armazenados na variável @qualquerfruta 
    (@qualquerfruta, $a)  =  @frutas;    # @qualquerfruta é igual a @frutas e $a é indefinida 

Para você reculperar o valor do índice do último elemento de @frutas use a seguinte instrução: 

    $#frutas 


Imprimindo arrays 
Dependendo do contexto o resultado pode ser diferente, veja: 
 
    print @frutas;        # Sem aspas 
    print "@frutas";      # Entre aspas 
    print @frutas."";     # Num contexto escalar 


Exercício 
Teste os três exemplos acima para ver o resultado. 

6 - Arquivos 
Vejamos um programa Perl básico que realiza algo semelhante ao comando cat do UNIX sobre um arquivo. 

    #!/usr/bin/perl 
    # 
    # Programa para abris o aquivo passwd, ler o conteúdo, imprimir e fechar o arquivo. 
    # 
    $arquivo  =  '/etc/passwd';         # Nome do arquivo 
    open(INFO, $arquivo);             # Abre o arquivo 
    @linhas  =  ;               # Le o conteúdo e armazena em um array 
    close(INFO);                           # Fecha o arquivo 
    print @linhas;                           # Imprime o array

[mrx]

A função open abre o arquivo para entrada (i.e. para leitura). O primeiro parâmetro (INFO) é o apelido do arquivo (filehandle) que permite a Perl fazer referências ao arquivo no futuro. O segundo parâmetro ($arquivo) é uma espressão que informa o nome do arquivo. Se o nome do arquivo estiver entre aspas simples ele realizará uma expansão de shell. A expressão '~/notas/lista' não será interpetrada corretamente. Se você que forçar uma expansão de shell use os sinais de maior que e menor que: <~/notas/lista>. A função close informa para a Perl fechar o arquivo. 

Temos mais alguns pontos para tratar com relação ao apelido do arquivo ( filehanding ). Primeiro, a função open pode especificar se um arquivo deve ser aberto para entrada, saída ou adicionar. Para realizar estes pedidos anteceda o nome do arquivo com > para saída e >> para adicionar: 

    open(INFO, $arquivo);           # Abre para entrada 
    open(INFO, ">$arquivo");      # Abre para saída 
    open(INFO, ">>$arquivo");    # Abre para adicionar 
    opne(INFO, "<$arquivo");      # Também abre para entrada 

Segundo, se você quer gravar alguma coisa no arquivo ele já deve estar aberto para saída ai você pode usar a função print com um parâmetro extra. Para gravar uma string em m arquivo com o apelido ( filehandle ) INFO use: 

    print INFO "Esta linha sera gravada no arquivo\n"; 

Terceiro, você pode usar o formato abaixo para abrir respectivamente a entrada padrão (geralmente o teclado) e a saída padrão (geralmente o video): 

    open(INFO, '-');        # Abre a entrada padrão 
    open(INFO, '>');       # Abre a saída padrão 

No nosso programa de exemplo (acima) lemos a informação apartir de um arquivo. O arquirvo é INFO, e para ler os dados apartir dele a Perl usa o seguinte formato: 

    @linhas  =  ; 

Le o arquivo referênciado pelo apelido ( filehandle ) INFO e armazena as linhas no array @linhas. Note que a expressão le todos os registro do arquivo numa única vez.Isso por que a leituta está dentro de um contexto de variável array. Se @linhas for trocada por uma variável escalar $linhas só poderemos ler uma linha por vez. Nos dois casos cada linha e armazenada completamente e encerrada com um caracter de nova linha \n. 

Exercício 
Modificar o programa de exemplo (acima) de modo que cala linha impressa seja precedida do simbolo #. Você tem que incluir uma linha e modificar outra linha ( esta é a dica ;)) 
        } 

Quando você tiver conseguido fazer isso, você pode mudar o programa de forma que o número das linhas sejam impresso no seguinte formato 001, 002, 003, ..., 010, 011, 012, etc. Para fazer isso você deve simplesmente mudar uma linha inserindo quatro caracteres.... boa sorte. 
   
 8 - Condicionais 
A Perl permite operadores condicionais if / then / else. 

    if ($a) 
       { 
         print "A string não está vazia...\n"; 
        } 
    else 
       { 
         print "A está vazia ...\n"; 
       } 

Lembre-se uma string vazia é considerada falsa. 

É possivel colocar várias alternativas com operadores condicionais: 
 
    if (!$a) 
      { 
        print "A string está vazia ...\n"; 
      } 
    elsif (length($a) = = 1) 
      { 
        print "A string tem um caractere...\n"; 
      } 
    elsif (length($a) = = 2) 
      { 
        print "A string tem dois caracteres...\n"; 
      } 
    else 
      { 
        print "A string tem vários caracteres...\n"; 
      } 

Note que elsif NÃO tem o "e". 


8.1 - Exercícios 
Localize um arquivo grande que contenha texto e brancos. No exercício anterior você imprimiu o arquivo de senhas com as linhas numeradas. Altere o programa de forma que ele trabalhe com arquivos de texto. Agora altere o programa novamente de forma que ele não imprima nem conte as linhas em branco. Lembre-se que quando uma linha é lida, automaticamente é incluido um caractere de nova linha ao final da linha lida. 
 

9 -String 
Uma das propriedades mais utilizadas da Perl ( se não a mais utilizada) são as poderosas facilidades para manipulação de string. Esta propriedade é conhecida como expressões regulares (RE) que é copiada de muitas das ferramentas do UNIX. 


9.1 Expressões regulares (RE) 
Uma expressão regular fica dentro de barras ( /RE/ ), e comparação é feita com o operador  =~ . A expressão abaixo é verdadeira se a string "ola" aparecer na variável  $sentenca. 

    $sentenca =~ /ola/ 

As expressões regulares (RE) são case sensitive, ou seja diferenciam maiusculas de minusculas, a expressão acima seria falsa se: 

    $sentenca = "Ola meus amigos" 

por que o "O" de ola está em maiusculo. 

O operador  !=  é utilizado para a negação da RE. Veja o exemplo abaixo 

    $sentenca != /ola/ 

é verdadeiro por que a string ola não aparece na sentença. 


9.2 A variável especial $_ 
Nos podemos usar a condicional da seguinte forma 

    if ($sentenca =~ /casa/) 
     { 
       print "Nos estamos falando da linda casa...\n"; 
     } 

a mensagem será impressa se a string casa estiver na variável $sentenca, veja: 

    $sentenca = "A linda casa de campo"; 
    $sentenca = "O casarao da avenida das palmeiras"; 
    $sentenca = "O casaco de vento"; 

logo, no nosso exemplo a mensagem seria impressa em qualquer um dos casos. 

Mas frequentemente nós comparamos a sentença com a variável especial $_, que é escalar. Se nós   fizermos isso, poderemos desconsiderar os operadores de igualdade ( =~ )  e diferença ( != ) e escrever a sentença como segue abaixo: 

    if (/casa/) 
     { 
       print "Nos estamos falando da linda casa...\n"; 
     } 

A variável $_ é o padrão ( default ) para muitas operações da Perl e consequente você vai encontrar este tipo de comparação com muita freqüência. 

Bem, quando eu estava iniciando meus estudos da Perl, tive dificuldades para entender o funcionamento da variável $_ , então vou montar um outro exemplo para os que tiverem dificuldades como eu tive. 

$_ é como uma copia da última operação de atribuição, então se: 

    $teste = "ola"; 

e se fizermos: 

    print $_; 

o resultado sera: 

    ola 

Espero que tenha entendido, caso não esteja claro envie email para podemos montar um exemplo mais esclarecedor. 
 

9.3 Mais expressões regulares (RE) 
Podemos utilizar alguns caracteres especiais com expressões regulares (RE) e isso lhe dá muito poder e fica com uma aparecia meio compricada. :)