gedrückte Taste anzeigen (Perl/Tk)

In Perl/Tk ist es möglich auf Ereignisse zu reagieren. Eines dieser Ereignisse kann ein Tastendruck sein. Möchte man die gedrückte Taste evaluieren (testen, ob es die erwartete Taste war), dann muss man wissen, wie diese Taste heißt. Das ist nicht automatisch einleuchtend. Die Zeichenkette für die Taste mit dem scharfen S ist beispielsweise ssharp (und nicht ß).

In den Tiefen des Internets habe ich dazu mal einen Code-Schnipsel gefunden, der den Code für die gedrückte Taste anzeigt.

Anzeige der gedrückten taste in Perl/Tk

#!perl

use strict;
use warnings;
use utf8;
use Tk;

my $bind=' ';

my $mw = new MainWindow( -title => 'Gettaste' );
$mw->geometry("140x30");

$mw->bind('<Key>',[\&check_key, Ev('K')]);

$mw->Label( -textvariable => \$bind )->pack;

$mw->MainLoop();
exit(0);

sub check_key {
	$bind = "'<$_[1]>'";
} # /check_key