• TemplateToolkit2
• AWStats
• TWiki
• 

---+!! %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"}%

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding Perl Brasil? Send feedback