Вот ошибки: $ perl ftper.pl Use of uninitialized value $id in hash element at /usr/lib/perl5/vendor_perl/5.1 /i686-cygwin/Tk/After.pm line 39. se of uninitialized value $id in hash element at /usr/lib/perl5/vendor_perl/5.1 /i686-cygwin/Tk/After.pm...

Я хочу скрыть главное окно на определенное время, а затем снова показать его. Пример: use Tk; my $mw = new MainWindow; my $lblMsg = $mw -> Label(-text=>"blabla")-> grid(); my $btnPostpone = $mw -> Button(-text=>"Postpone for...

Я получаю ISBN от пользователя. Вероятно, со сканера штрих-кода (18 цифр EAN, оканчивающихся возвратом), но его можно ввести вручную (13 цифр). Если это вручную, оно будет исходить от цифровой клавиатуры и может заканчиваться «Ввод с цифровой...

В Perl/Tk можно связать событие следующим образом: $mw->bind('<KeyPress-W>', sub{print "W is pressed";}); Возможно ли получить эту информацию в другом направлении? Могу ли я сделать вызов типа «получить статус клавиши» или...

Я создаю список кнопок в perl tk, используя цикл. $i=1; $n=5; @x=1; while($i <= $n){ $mw->Checkbutton(->text=>$i,-variable=>\$ckval,->command=>sub{ if($ckval){print $i} })->pack;...

При нажатии кнопки отправки должна быть вызвана функция обратного вызова. печать всех аргументов, переданных во время обратного вызова, не работает. Но он входит в функцию обратного вызова. Как я могу получить доступ к переданным переменным, чтобы...