perl-IO-Interactive

Este módulo fornece três sub-rotinas utilitárias que facilitam o desenvolvimento de aplicações interativas. O filehandle 'ARGV', aquele que '<>' ou um 'readline()' vazio usa, tem várias magias associadas. Na verdade, só é aberto quando se tenta ler dele. Verificar '-t ARGV' antes de ter tentado ler dele pode dar a resposta errada. Além disso, pode não se ler de 'ARGV'. Se o valor em '@ARGV' for o nome de ficheiro mágico '-' (uma convenção para significar o filehandle padrão de entrada ou saída), 'ARGV' pode na verdade ser 'STDIN'. Não se quer pensar em tudo isto. Este módulo é discutido em _Perl Best Practices_ na página 218. Ver também a entrada 'ARGV' em perlvar e a entrada 'readline' em perlfunc. * 'is_interactive()' Esta sub-rotina devolve verdadeiro se '*ARGV' e o filehandle atualmente selecionado (normalmente '*STDOUT') estiverem ligados ao terminal. O teste é consideravelmente mais sofisticado do que: -t *ARGV && -t *STDOUT pois tem em conta o comportamento mágico de '*ARGV'. Também se pode passar a 'is_interactive' um filehandle gravável, caso em que exige que esse filehandle esteja ligado a um terminal (em vez do atualmente selecionado). O suspeito habitual aqui é '*STDERR': if ( is_interactive(*STDERR) ) { carp $warning; } Note que 'is_interactive' pode devolver verdadeiro numa Windows Scheduled Task. Ver Github #6 (https://github.com/briandfoy/io-interactive/issues/6). * 'interactive()' Esta sub-rotina devolve '*STDOUT' se 'is_interactive' for verdadeiro. Se 'is_interactive()' for falso, 'interactive' devolve um filehandle que não imprime. Isto facilita criar aplicações que só imprimem quando a aplicação é interativa: print {interactive} "Please enter a value: "; my $value = <>; Também se pode passar a 'interactive' um filehandle gravável, caso em que escreve nesse filehandle se estiver ligado a um terminal (em vez de escrever em '*STDOUT'). Mais uma vez, o suspeito habitual é '*STDERR': print {interactive(*STDERR)} $warning; * 'busy {...}' Esta sub-rotina recebe um bloco como único argumento e executa esse bloco. Enquanto o bloco é executado, '*ARGV' é temporariamente substituído por um filehandle fechado. Ou seja, nenhuma entrada de '*ARGV' é possível num bloco 'busy'. Além disso, quaisquer tentativas de enviar entrada para o bloco 'busy' através de '*ARGV' são interceptadas e uma mensagem de aviso é impressa em '*STDERR'. A chamada a 'busy' devolve um filehandle que contém a entrada interceptada. Um bloco 'busy' é portanto útil para impedir tentativas de entrada quando o programa está ocupado com alguma tarefa não interativa.