User since
2003-08-15
2653
Artikel
BenutzerIn
wie kann ich in Perl eine WAVE-Datei abspielen lassen? Es sollte nach möglichkeit möglichst auf jedem Windows-Rechner funktionieren und das programm nicht behindern wenn es dann doch nicht möglich ist weil z.b. kein soundkartarten-treiber installiert ist.
User since
2003-08-04
5872
Artikel
ModeratorIn
Nutzt Dir dies was? Habs gerade durch Suchen gefunden:
http://search.cpan.org/~acalpini/Win32-Sound-0.45/Sound.pm\n\n
<!--EDIT|Crian|1115069423-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
User since
2003-08-15
2653
Artikel
BenutzerIn
jetzt hab ich aber ein problemchen....
ich nutze Tk. Wenn ich Win32::Sound::Play("gong.wav"); mache, dann schläft die GUI solange bis der Sound zuende abgespielt wurde. Danach gehts dann erst weiter.
Mit Threads kann ich aber auch nicht arbeiten, da Par diese nicht unterstützt.
forken kann ich unter Windows auch nicht, also muss irgendwas anderes her...
wenn ichs mit after(1,sub{}) versuche auszulagern, dann wartet er trotzdem...\n\n
<!--EDIT|Froschpopo|1115077618-->
User since
2003-08-15
2653
Artikel
BenutzerIn
Ok mit after(100,...) klappts
User since
2004-09-06
458
Artikel
BenutzerIn
könntest es auch in ne extra Perlscript machen das nur für Sound zuständig ist und es mit "start sound.pl gong.wav" aufrufen.
(Nur so ne Idee)