Utilities for interactive I/O

Edit Package perl-IO-Interactive

This module provides three utility subroutines that make it easier to
develop interactive applications...

* 'is_interactive()'

This subroutine returns true if '*ARGV' and the currently selected
filehandle (usually '*STDOUT') are connected to the terminal. The test is
considerably more sophisticated than:

-t *ARGV && -t *STDOUT

as it takes into account the magic behaviour of '*ARGV'.

You can also pass 'is_interactive' a writable filehandle, in which case
it requires that filehandle be connected to a terminal (instead of the
currently selected). The usual suspect here is '*STDERR':

if ( is_interactive(*STDERR) ) {
carp $warning;

* 'interactive()'

This subroutine returns '*STDOUT' if 'is_interactive' is true. If
'is_interactive()' is false, 'interactive' returns a filehandle that does
not print.

This makes it easy to create applications that print out only when the
application is interactive:

print {interactive} "Please enter a value: ";
my $value = <>;

You can also pass 'interactive' a writable filehandle, in which case it
writes to that filehandle if it is connected to a terminal (instead of
writinbg to '*STDOUT'). Once again, the usual suspect is '*STDERR':

print {interactive(*STDERR)} $warning;

* 'busy {...}'

This subroutine takes a block as its single argument and executes that
block. Whilst the block is executed, '*ARGV' is temporarily replaced by a
closed filehandle. That is, no input from '*ARGV' is possible in a 'busy'
block. Furthermore, any attempts to send input into the 'busy' block
through '*ARGV' is intercepted and a warning message is printed to
'*STDERR'. The 'busy' call returns a filehandle that contains the
intercepted input.

A 'busy' block is therefore useful to prevent attempts at input when the
program is busy at some non-interactive task.

  • Sources inherited from project openSUSE:13.1
  • Download package
  • osc -A https://api.opensuse.org checkout openSUSE:13.1:Update/perl-IO-Interactive && cd $_
  • Create Badge
Source Files
Filename Size Changed
IO-Interactive-0.0.6.tar.gz 0000006487 6.33 KB almost 12 years
perl-IO-Interactive.changes 0000000313 313 Bytes over 11 years
perl-IO-Interactive.spec 0000003637 3.55 KB over 11 years
Comments 0
openSUSE Build Service is sponsored by