小编cha*_*dge的帖子

Perl Tk Bind <Return>不是数字键盘返回?

我正在抓住用户的ISBN.可能来自条形码扫描仪(由返回终止的EAN 18位数字),但可以手动键入(13位数).如果是手动,它将来自数字键盘,可能以"数字键盘输入"结束.我已经为我的代码添加了一个绑定:

$isbn_entry->bind("<Return>", sub{shift->focusNext});
Run Code Online (Sandbox Code Playgroud)

按下键盘上的回车键时可正常工作,但按下数字键盘上的回车键时则无效.我是否还要添加另一个绑定来捕获那个?如果是这样,怎么样?或者我开始做错了吗?

perl bind perltk

7
推荐指数
1
解决办法
2142
查看次数

在Perl脚本中播放声音

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

use Win32::Sound;
Win32::Sound::Play('SystemDefault',SND_ASYNC);
Run Code Online (Sandbox Code Playgroud)

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

system('paplay /usr/share/sounds/gnome/default/alert/sonar.ogg');
Run Code Online (Sandbox Code Playgroud)

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

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

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

windows audio perl portability gnome

7
推荐指数
1
解决办法
2659
查看次数

标签 统计

perl ×2

audio ×1

bind ×1

gnome ×1

perltk ×1

portability ×1

windows ×1