windows – 在Perl脚本中播放声音

发布时间：2020-12-14 04:21:00 所属栏目：Windows 来源：网络整理

导读：我正在尝试将声音添加到Perl脚本以提醒用户该事务处于正常状态(用户可能无法在工作时始终查看屏幕).我希望尽可能保持便携,因为脚本在 Windows和 Linux工作站上运行. 我可以 use Win32::Sound;Win32::Sound::Play('SystemDefault',SND_ASYNC); 对于Windows.但

我正在尝试将声音添加到Perl脚本以提醒用户该事务处于正常状态(用户可能无法在工作时始终查看屏幕).我希望尽可能保持便携,因为脚本在 Windows和 Linux工作站上运行.
我可以

use Win32::Sound;
Win32::Sound::Play('SystemDefault',SND_ASYNC);

对于Windows.但我不确定如何在Linux(Gnome)上调用泛型声音.到目前为止,我已经想到了

system('paplay /usr/share/sounds/gnome/default/alert/sonar.ogg');

但我不确定我是否可以指望这条路可用.
那么,有三个问题：

>有没有更好的方法来调用Gnome中的默认声音
>这条路是非常普遍的(至少在Debain / Ubuntu风味中)
>播放声音后,paplay需要一段时间才能退出,是否有更好的方式来呼叫它？

我宁愿远离系统扬声器发出哔哔声,这听起来很糟糕(这会发挥很大作用),Ubuntu无论如何都会将PC扬声器列入黑名单.
谢谢！

一个更便携的方式来获取paplay的路径(假设它在那里)可能是使用 File::Which.然后你可以获得如下路径：

use File::Which;
my $paplay_path = which 'paplay';

要异步播放声音,您可以分叉子进程：

my $pid = fork;
if ( !$pid ) { 
    # in the child process
    system $paplay_path,'/usr/share/sounds/gnome/default/alert/sonar.ogg';
}

# parent proc continues here

另请注意,我使用了多参数形式的系统;这样做可以避免shell并直接运行所请求的程序.这可以避免危险的错误(并且效率更高.)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!