怎样用perl实现dos提示符下,让那个光标旋转的程序



QUOTE:
原帖由 dajun 于 2008-7-4 12:26 发表
$|      If set to nonzero, forces a flush right away and after every
               write or print on the currently selected output channel.
               Default is 0 (regardless of whether t ...

这个功能貌似很弓虽大。。。
直接写到STDERR不就可以了?
不好意思,不小心点到 dajun 贴子臭蛋
escape 序列
真强,我一直对perl中的特殊变量一知半解如$_、$|
赞!~~

可是我有个问题

这个像个进度条似的,可是怎么样能够在执行我要执行的代码的同时让屏幕显示! - \ | / !

而在代码执行完之后停下来呢?

是用多线程一个执行我要执行的代码,另外一个跑while (1) {...}的吗?
qx相当于调用system函数吗?
select函数能详细解释一下吗?