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

• Download manipulando-arquivos.pl
• Enviar nova versão

Esconder código-fonte

#!/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

getter

Script para adicionar sites ao Squid

arruma_nomes.pl

Script que remove palavras de um arquivo.