TemplateToolkit2
AWStats
TWiki
Pesquisar
Todas as Webs
Documentação
Introdução ao Perl
Estruturas de dados
Expressões regulares
Orientação a objetos
Guia de estilos
mais...
Artigos
Rakudo Star - Um Perl 6 útil e utilizável, hoje!
Como instalar, passo a passo o: Apache, Mysql, Perl e módulos necessários do CPAN no Windows
Operadores bit-a-bit
O Melhor Sistema de Templates
Aprenda a programar em 10 anos
mais...
Planeta
Fred Recsky: Novo sistema para o Eee pc
Fred Recsky: Scp não funciona mas ssh sim
Fred Recsky: Git Pro
Fred Recsky: Gravar imagem iso no mac os
Fred Recsky: Em busca do Shell perfeito
mais...
Eventos
mais...
Comunidade
Brasil
São Paulo
Rio de Janeiro
Salvador
Fortaleza
mais...
r1 - 06 Aug 2006 -
JoenioCosta
---+!! %FORMFIELD{"Título"}% ---++ Problema %STARTSECTION{"problema"}% Você quer ler um arquivo inteiro e colocá-lo na memória. %ENDSECTION{"problema"}% ---++ Solução %STARTSECTION{"solucao"}% <verbatim> @file = <FILE>; </verbatim> ou <verbatim> use File::Slurp; </verbatim> %ENDSECTION{"solucao"}% ---++ Discussão %STARTSECTION{"discussao"}% Antes de continuar a leitura, é importante considerar o seguinte: você tem certeza de que de precisa colocar todo o conteúdo do arquivo na memória, de uma vez? Se isto for realmente necessário, esta é a solução que é mais frequentemente encontrada: <verbatim> open (FILE,"...") or die "..."; @file = <FILE>; close FILE; </verbatim> Uma solução mais eficiente, porém, é usar o módulo File::Slurp: <verbatim> use File::Slurp; my $text = read_file( 'filename' ) ; # scalar context my @lines = read_file( 'filename' ) ; # list context </verbatim> O File::Slurp também permite escrever o arquivo completo de forma eficiente: <verbatim> write_file( 'filename', @lines ) ; </verbatim> %ENDSECTION{"discussao"}% ---++ Comentários %COMMENT{cols="30"}%