perl anyevent-Biotech
使用anyevent:#!/usr/bin/perl -w
use AnyEvent;
$| =1; print "Enter you name\n";
my $cv = AnyEvent->condvar;
my $name;
my $wait_for_input=AnyEvent->io(
fh=> \*STDIN,
poll=>"r",
cb=>sub {
$name=;
print $name;
$cv->send;
}
);
print "do something first\n";
$cv->recv;
页:
[1]