Signalton erzeugen: Wie erzeugt man in Perl einen Signalton (Allgemeines zu Perl)

[thread]6959[/thread]

Signalton erzeugen: Wie erzeugt man in Perl einen Signalton

michl

2005-05-04 12:01

User since
2005-05-03
3 Artikel
BenutzerIn
[default_avatar]

Wie erzeuge ich in Perl einen Signalton. Möglichst soll noch die Freguenz und Tondauer einstellbar sein.

Vielen Dank im Voraus.

Crian

2005-05-04 12:38

User since
2003-08-04
5873 Artikel
ModeratorIn

Code: (dl )

print "\a";

Für weiteres wäre das Betriebssystem interessant.

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

michl

2005-05-04 14:59

User since
2005-05-03
3 Artikel
BenutzerIn
[default_avatar]

Hallo crian,

herzlichen Dank für die Info. Betriebssystem ist Win2K. Außer print "\a"; gibt's nichts ?

Ronnie

2005-05-04 15:01

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

[quote=michl,04.05.2005, 12:59]Außer print "\a"; gibt's nichts ?[/quote]
Oh, es gibt so einiges: http://search.cpan.org/search?query=Sound&mode=all

michl

2005-05-04 16:17

User since
2005-05-03
3 Artikel
BenutzerIn
[default_avatar]

.... vielen Dank.

Crian

2005-05-04 17:51

User since
2003-08-04
5873 Artikel
ModeratorIn

Doch, für Windows gibt es einige Win32::... Module, da würd ich bei ActiveState mal nachsehen, was die im Programm haben.

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

View all threads created 2005-05-04 12:01.