AnyEvent::Util(3) User Contributed Perl Documentation AnyEvent::Util(3)NAMEAnyEvent::Util - various utility functions.
SYNOPSIS
use AnyEvent::Util;
DESCRIPTION
This module implements various utility functions, mostly replacing
well-known functions by event-ised counterparts.
All functions documented without "AnyEvent::Util::" prefix are exported
by default.
($r, $w) = portable_pipe
Calling "pipe" in Perl is portable - except it doesn't really work
on sucky windows platforms (at least not with most perls - cygwin's
perl notably works fine): On windows, you actually get two file
handles you cannot use select on.
This function gives you a pipe that actually works even on the
broken windows platform (by creating a pair of TCP sockets on
windows, so do not expect any speed from that, and using "pipe"
everywhere else).
See "portable_socketpair", below, for a bidirectional "pipe".
Returns the empty list on any errors.
($fh1, $fh2) = portable_socketpair
Just like "portable_pipe", above, but returns a bidirectional pipe
(usually by calling "socketpair" to create a local loopback socket
pair, except on windows, where it again returns two interconnected
TCP sockets).
Returns the empty list on any errors.
fork_call { CODE } @args, $cb->(@res)
Executes the given code block asynchronously, by forking.
Everything the block returns will be transferred to the calling
process (by serialising and deserialising via Storable).
If there are any errors, then the $cb will be called without any
arguments. In that case, either $@ contains the exception (and $!
is irrelevant), or $! contains an error number. In all other cases,
$@ will be "undef"ined.
The code block must not ever call an event-polling function or use
event-based programming that might cause any callbacks registered
in the parent to run.
Win32 spoilers: Due to the endlessly sucky and broken native
windows perls (there is no way to cleanly exit a child process on
that platform that doesn't also kill the parent), you have to make
sure that your main program doesn't exit as long as any
"fork_calls" are still in progress, otherwise the program won't
exit. Also, on most windows platforms some memory will leak for
every invocation. We are open for improvements that don't require
XS hackery.
Note that forking can be expensive in large programs (RSS 200MB+).
On windows, it is abysmally slow, do not expect more than 5..20
forks/s on that sucky platform (note this uses perl's pseudo-
threads, so avoid those like the plague).
Example: poor man's async disk I/O (better use IO::AIO).
fork_call {
open my $fh, "</etc/passwd"
or die "passwd: $!";
local $/;
<$fh>
} sub {
my ($passwd) = @_;
...
};
$AnyEvent::Util::MAX_FORKS [default: 10]
The maximum number of child processes that "fork_call" will fork in
parallel. Any additional requests will be queued until a slot
becomes free again.
The environment variable "PERL_ANYEVENT_MAX_FORKS" is used to
initialise this value.
fh_nonblocking $fh, $nonblocking
Sets the blocking state of the given filehandle (true ==
nonblocking, false == blocking). Uses fcntl on anything sensible
and ioctl FIONBIO on broken (i.e. windows) platforms.
$guard = guard { CODE }
This function creates a special object that, when called, will
execute the code block.
This is often handy in continuation-passing style code to clean up
some resource regardless of where you break out of a process.
The Guard module will be used to implement this function, if it is
available. Otherwise a pure-perl implementation is used.
You can call one method on the returned object:
$guard->cancel
This simply causes the code block not to be invoked: it "cancels"
the guard.
AnyEvent::Util::close_all_fds_except @fds
This rarely-used function simply closes all file descriptors (or
tries to) of the current process except the ones given as
arguments.
When you want to start a long-running background server, then it is
often beneficial to do this, as too many C-libraries are too stupid
to mark their internal fd's as close-on-exec.
The function expects to be called shortly before an "exec" call.
Example: close all fds except 0, 1, 2.
close_all_fds_except 0, 2, 1;
$cv = run_cmd $cmd, key => value...
Run a given external command, potentially redirecting file
descriptors and return a condition variable that gets sent the exit
status (like $?) when the program exits and all redirected file
descriptors have been exhausted.
The $cmd is either a single string, which is then passed to a
shell, or an arrayref, which is passed to the "execvp" function.
The key-value pairs can be:
">" => $filename
Redirects program standard output into the specified filename,
similar to ">filename" in the shell.
">" => \$data
Appends program standard output to the referenced scalar. The
condvar will not be signalled before EOF or an error is
signalled.
">" => $filehandle
Redirects program standard output to the given filehandle (or
actually its underlying file descriptor).
">" => $callback->($data)
Calls the given callback each time standard output receives
some data, passing it the data received. On EOF or error, the
callback will be invoked once without any arguments.
The condvar will not be signalled before EOF or an error is
signalled.
"fd>" => $see_above
Like ">", but redirects the specified fd number instead.
"<" => $see_above
The same, but redirects the program's standard input instead.
The same forms as for ">" are allowed.
In the callback form, the callback is supposed to return data
to be written, or the empty list or "undef" or a zero-length
scalar to signal EOF.
Similarly, either the write data must be exhausted or an error
is to be signalled before the condvar is signalled, for both
string-reference and callback forms.
"fd<" => $see_above
Like "<", but redirects the specified file descriptor instead.
on_prepare => $cb
Specify a callback that is executed just before the comamnd is
"exec"'ed, in the child process. Be careful not to use any
event handling or other services not available in the child.
This can be useful to set up the environment in special ways,
such as changing the priority of the command.
close_all => $boolean
When "close_all" is enabled (default is disabled), then all
extra file descriptors will be closed, except the ones that
were redirected and 0, 1 and 2.
See "close_all_fds_except" for more details.
'$$' => \$pid
A reference to a scalar which will receive the PID of the
newly-created subprocess after "run_cmd" returns.
Note the the PID might already have been recycled and used by
an unrelated process at the time "run_cmd" returns, so it's not
useful to send signals, use a unique key in data structures and
so on.
Example: run "rm -rf /", redirecting standard input, output and
error to /dev/null.
my $cv = run_cmd [qw(rm -rf /)],
"<", "/dev/null",
">", "/dev/null",
"2>", "/dev/null";
$cv->recv and die "d'oh! something survived!"
Example: run openssl and create a self-signed certificate and key,
storing them in $cert and $key. When finished, check the exit
status in the callback and print key and certificate.
my $cv = run_cmd [qw(openssl req
-new -nodes -x509 -days 3650
-newkey rsa:2048 -keyout /dev/fd/3
-batch -subj /CN=AnyEvent
)],
"<", "dev/null",
">" , \my $cert,
"3>", \my $key,
"2>", "/dev/null";
$cv->cb (sub {
shift->recv and die "openssl failed";
print "$key\n$cert\n";
});
AnyEvent::Util::punycode_encode $string
Punycode-encodes the given $string and returns its punycode form.
Note that uppercase letters are not casefolded - you have to do
that yourself.
Croaks when it cannot encode the string.
AnyEvent::Util::punycode_decode $string
Tries to punycode-decode the given $string and return it's unicode
form. Again, uppercase letters are not casefoled, you have to do
that yourself.
Croaks when it cannot decode the string.
AnyEvent::Util::idn_nameprep $idn[, $display]
Implements the IDNA nameprep normalisation algorithm. Or actually
the UTS#46 algorithm. Or maybe something similar - reality is
complicated btween IDNA2003, UTS#46 and IDNA2008. If $display is
true then the name is prepared for display, otherwise it is
prepared for lookup (default).
If you have no clue what this means, look at "idn_to_ascii"
instead.
This function is designed to avoid using a lot of resources - it
uses about 1MB of RAM (most of this due to Unicode::Normalize).
Also, names that are already "simple" will only be checked for
basic validity, without the overhead of full nameprep processing.
$domainname = AnyEvent::Util::idn_to_ascii $idn
Converts the given unicode string ($idn, international domain name,
e.g. aeXXaeXXeXXa~XXieXXieXX) to a pure-ASCII domain name (this is
usually called the "IDN ToAscii" transform). This transformation is
idempotent, which means you can call it just in case and it will do
the right thing.
Unlike some other "ToAscii" implementations, this one works on full
domain names and should never fail - if it cannot convert the name,
then it will return it unchanged.
This function is an amalgam of IDNA2003, UTS#46 and IDNA2008 - it
tries to be reasonably compatible to other implementations,
reasonably secure, as much as IDNs can be secure, and reasonably
efficient when confronted with IDNs that are already valid DNS
names.
$idn = AnyEvent::Util::idn_to_unicode $idn
Converts the given unicode string ($idn, international domain name,
e.g. aeXXaeXXeXXa~XXieXXieXX, www.deliantra.net, www.xn--l-0ga.de)
to unicode form (this is usually called the "IDN ToUnicode"
transform). This transformation is idempotent, which means you can
call it just in case and it will do the right thing.
Unlike some other "ToUnicode" implementations, this one works on
full domain names and should never fail - if it cannot convert the
name, then it will return it unchanged.
This function is an amalgam of IDNA2003, UTS#46 and IDNA2008 - it
tries to be reasonably compatible to other implementations,
reasonably secure, as much as IDNs can be secure, and reasonably
efficient when confronted with IDNs that are already valid DNS
names.
At the moment, this function simply calls "idn_nameprep $idn, 1",
returning it's argument when that function fails.
AUTHOR
Marc Lehmann <schmorp@schmorp.de>
http://home.schmorp.de/
perl v5.14.2 2010-02-23 AnyEvent::Util(3)