Utilizando ponteiros de função em PERL

Ponteiros de função são úteis quando precisamos ou desejamos dar um mesmo tratamento para funções ou métodos distintos. Seu uso é bastante difundido dentre programadores C/C++, o que ajuda na organização e reusabilidade de código, facilitando o gerenciamento de erros.
Em geral, programadores iniciantes costumam “fugir” dos ponteiros, porém, após uma compreensão de seu funcionamento básico, [...]

SIGINT + Perl

Eu já postei algo sobre signals aqui no blog. Hoje vai um programa em perl, tratando o sinal de interrupção (aquele que é enviado quando se aperta Ctrl+C).

#! /usr/bin/perl

my $count = 5;

$SIG{ ‘INT’ } = &stop;

while ( $count ) {
print (“Estou vivo!n”);
sleep(1);
}

sub stop {
$count–;

print $count;
print “n”;

unless($count) {
print “Estou [...]

Perl + Python + Fifos

Hoje vou postar um código de teste de uso de pipes nomeados com perl e python. Como já havia postado, pipes nomeados são usados para comunicação entre processos.
Neste caso, em um exemplo simples, mostra-se um programa em perl que escreve em um pipe nomeado e um programa em [...]

Sockets em Perl

 
Manipular sockets em perl é muito simples com o uso da biblioteca IO::Socket::INET. Perl proporciona outras maneiras de implementar sockets, com o uso das system calls, porém esta biblioteca encapsula as funcionalidades básicas do socket.
Abaixo segue um exemplo de um server e de um client escrito em [...]