[Cascavel-pm] Iniciante

[Paulo]

Veja o exemplo abaixo:

#!/usr/bin/perl
# a linha anterior serve para indicar ao Linux a localizacao do interpretador
# Perl, no caso do Windows eh a extensao .pl que faz isso e essa linha he
# desnecessaria.

open(DADOS,"arq_dados.txt") or die "Impossivel abrir arquivo: $!\n";
# o comando open abre o arquivo "arq_dados.txt" que eh ligado ao handle
# "DADOS". Handle pode ser conhecido como ponteiro do arquivo.
# Caso algo de errado "or die" exibe a mensagem "Impossivel..." junto com a
# variavel $! que contem o erro correspondente.

while ($linha = <DADOS>) {$todo_conteudo .= $linha}
# o while repete os comandos entre { } até chegar ao final do arquivo, isso 
caso ele tenha mais do que uma simples linha. A parte "$linha= <DADOS>" pega 
a primeira linha e passa para a variavel $linha.
# A parte "$todo_conteudo .= $linha" concatena acumulativamente todas as
# linhas por causa do "."

print "$todo_conteudo";
# imprime na saida padrao o conteudo da variavel, soh pra teste :)