[Cascavel-pm] Iniciante

[Luis Campos de Carvalho]

----- Original Message ----- 
From: "Tarik Gregorio" <tgregorio em fagnet.com.br>
Sent: Monday, November 01, 2004 9:30 AM


> Pessoal, estou comecando hj a programar em perl e estou tentando fazer
uma
> coisinha que nao consigo fazer de nenhuma maneira, ja li em milhares
de
> sites e nada. To querendo pegar o conteudo de um arquivo de texto e
colocar
> dentro de uma variavel. Isto e possivel????????

  Fácil.
  Começa assim:

  #!/usr/bin/perl  # Interpretador perl
  use warnings;    # avisos de coisas politicamente incorretas
  use strict;      # seja rigoroso, declare variáveis e funções.

  open IN, '/path/to/file.txt'   # Abra o arquivo
    or die $!;                   # Ou morra tentando.

  # '$/' é o "INPUT RECORD SEPARATOR", o caracter(es)
  # que separa(m) registros (linhas) da entrada de dados.
  # O padrão é "\n" (um newline), mas você pode colocar
  # qualquer coisa aqui. undef() vai fazer com que não
  # exista separador de registro de entrada (e tudo vai
  # ser visto como um único registro).
  local $/ = undef;
  # Leia os dados do arquivo.
  # Cuidado: se o arquivo for muito grande, isto pode
  # ocupar TODA a memória do seu computador (o Perl
  # não quer saber de nada, você pediu, ele faz!)
  my $content = <IN>;
  close IN               # Feche o arquivo
    or die $!;           # ou morra tentando...
  __END__ # fim de programa.

  Acho que isso resolve seu problema, Tarik...
  Espero que você consiga usar, comentei bastante para você saber o que
acontece. Se não ficou claro o suficiente, poste novamente aqui, e o
pessoal ajuda mais.

  Putamplexos!
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Campos de Carvalho is BSc in Comp Science,
 PerlMonk [SiteDocClan], Cascavel-pm Moderator,
 Unix Sys Admin && Certified Oracle DBA
 http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=