win32: Keyboard event abfragen und auslösen - #53311 (Allgemeines zu Perl)

master

2005-04-11 12:18

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Ok habs gefunden... Modul Keystate
Nur funktionierts noch nicht so ganz wie ich will...

Code: (dl )

use Win32::KeyState qw(:get);

  print 'CapsLock is ', GetCapsLock() ? 'On' : 'Off', "\n";
  print "Shift key is depressed\n" if (GetKeyState(0x10) & 1);

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;