#!/usr/bin/perl -w
use strict;
use Win32::Sound;
Win32::Sound::Volume(65535);
while (<*.wav>) {
Win32::Sound::Play($_);
}
常见问题
相关文章
猜你喜欢
- 提取psite位点附近序列 2015-12-14
- row模式下从binlog提取DML的回滚sql 2015-12-14
- 通过web界面查询svn更新 2015-12-14
- 解压缩文件后按行读取并处理 2015-12-14
- perl Sys::Uptime模块使用例子 2015-12-14
- 子程序的运用 2015-12-14
- Perl获取Linux操作系统版本 2015-12-14
- Perl 使用 DBI 连接到 Oracle 数据库 2015-12-14
- 正则表达式求素数 2015-12-14
- Perl 操作 Windows 的系统服务 2015-12-14
