perl 异步操作的问题

作者: Icedmilk   发布时间: 2011-01-28

作者: iambic   发布时间: 2011-01-28

#!/usr/bin/perl -W
$SIG{ALRM}=sub {print ".\n";alarm(1)};
alarm(1);
while (1){
 $lid=<STDIN>;;
 chomp($lid);
 last if ($lid); 
}
print "$lid\n";

作者: sunming2008   发布时间: 2011-01-28