[Cascavel-pm] livros de Perl de brinde

[Alceu R. de Freitas Jr.]

Não acho isso muito bonito, mas enfim...
Fui procurar algo sobre sinais enviados pelo teclado
para capturar com Perl...
Fui no Google... digitei exatamente isso: "signals
keyboard Perl".

Podem ir lá e tomar um susto no segundo resultado...

Aproveitando o ensejo, estou tentando adaptar um
script de Perl para a velharia que roda aqui (Perl
5.003) que implementa o programa 'tail' com alguns
adendos interessantes.

O problema é que o cara mapeia esse sinal aqui:
local $SIG{'QUIT'} = sub { exit 0 }; # do not core
dump

que teoricamente deveria ser CRTL+BACKSPACE para sair
do programa. Não funciona senhores, porque o sinal
QUIT não está disponível aqui. Alguma outra idéia?

Para os mais afoitos em dar uma força, o script está
disponível no CPAN como tail.

Puntaplexos,


=====
Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
"You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill

_______________________________________________________________________
Desafio AntiZona: participe do jogo de perguntas e respostas que vai
dar um Renault Clio, computadores, câmeras digitais, videogames e muito
mais! www.cade.com.br/antizona