Manipulação de Arquivos Orientada a Objetos
Publicado por Daniel Vinciguerra (última atualização em 24/02/2016)
[ Hits: 2.778 ]
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; }
Inserindo sites em Lista do Squid
Contagem de linhas em Perl (= wc -l)
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Problema com o Centro de Aplicativos Ubuntu 25.04 (2)
E aí? O Warsaw já está funcionando no Debian 13? (8)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (6)