求助：Perl中如何发出警报声

zouly_xm

1^# zouly_xm 发表于 2007-10-29 21:30

我使用Perl进行数据处理，并要在适当时候发出警报。但我不知道应使用什么模块或函数才能使系统发出警报声。alarm()没有动静，Audio::Beep会出错。郁闷！求助！多谢！

@zheng

2^# @zheng 发表于 2007-10-30 09:05

在windows系统下可以使用Win32::Sound播放一段音频文件，
使用alarm()设置播放时长！

tmp

3^# tmp 发表于 2007-10-30 09:49

perl -e "print \"\x07\""

lokchungk

4^# lokchungk 发表于 2007-10-30 13:19

\a\a\a

zouly_xm

5^# zouly_xm 发表于 2007-10-31 19:54

我用的恰恰是Linux，具体说是SuSE。"\a"在Windows下效果还可以，但在Linux下只能听到极短促的声音。

lokchungk

6^# lokchungk 发表于 2007-11-07 12:38

可以用alarm()設定警報聲的秒數