你的分享就是我们的动力 ---﹥

Perl 播放 wav 文件

时间:2013-05-30 00:16来源:www.chengxuyuans.com 点击:

Perl 播放 wav 文件代码

#!/usr/bin/perl -w

use strict;
use Win32::Sound;

Win32::Sound::Volume(65535);

while (<*.wav>) {
    Win32::Sound::Play($_);
}

转载注明地址:http://www.chengxuyuans.com/Perl/63108.html