2008年7月9日星期三

perl5.10 say threads for 1..6

perl -Mthreads -E "async {sleep 1 && say for 1..6}->detach for 1..3; sleep 8"

没有评论: