Manipulação de Arquivos Orientada a Objetos
Publicado por Daniel Vinciguerra (última atualização em 24/02/2016)
[ Hits: 2.760 ]
Homepage: http://bivee.com.br
Download manipulando-arquivos.pl
Sabemos que Perl não é uma linguagem totalmente orientada a objetos e vejo muitas pessoas dizendo que trabalhar com o paradigma orientado a objetos em Perl é complicado ou que Perl fica impossível de ser lida.
A verdade é que a orientação a objetos em Perl é uma excelente prática e por muitas vezes faz com que seu código fique mais legível e organizado, fazendo com que você consiga reaproveitar seus códigos se você escrever suas aplicações da forma correta.
Abaixo vou mostrar de forma breve e simples como manipular arquivos usando a classe IO::File
#!/usr/bin/env perl # 2016 (c) Daniel Vinciguerra # carrega os pragmas mais comuns use 5.10.0; use strict; use warnings; use IO::File; # constante my $FILE_PATH = 'file'; # iniciando um novo objeto IO::File para escrita my $fout = IO::File->new($FILE_PATH, "w"); if(defined $fout){ # escrevendo no arquivo say $fout "Ola Perl, este é um exemplo de escrita em arquivo!"; $fout->close; } # verificando se o arquivo existe say "Arquivo '${FILE_PATH}' encontrado!" if -e $FILE_PATH; # iniciando um novo objeto IO::File para leitura my $fin = IO::File->new($FILE_PATH, "r"); if(defined $fin){ # lendo do arquivo say <$fin>; $fin->close; }
Eliminando caracteres indesejados
Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada
Script que remove palavras de um arquivo.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)