Manipulação de Arquivos Orientada a Objetos
Publicado por Daniel Vinciguerra (última atualização em 24/02/2016)
[ Hits: 2.470 ]
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
Script que procura uma palavra em um arquivo.
Script para adicionar e remover usuários no IMSPECTOR
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
PROBLEMA COM SCRIPT USANDO SED {DÚVIDA}. (0)
validando quandidade de leitura no read[DUVIDA] (7)
Sistema da Coréia do Norte - Red Star OS (75)