Edit> копировать / вставить реализацию с помощью Perl / TK

Question

Я использую Perl / Tk для создания GUI для приложения. Я планирую добавить к нему меню редактирования со стандартными параметрами вырезания, копирования и вставки. Именно здесь я понял, что никогда не взаимодействовал с буфером обмена с помощью perl.

Может кто-нибудь дать мне ссылку на информацию о том, как возиться с буфером обмена в perl? Существует ли модуль perl для таких функций в конкретном случае?

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

Заранее спасибо за помощь!

Answer 1

Вы ищете Win32 :: Буфер обмена ?

Answer 2

use strict;
use Win32::GuiTest qw(:ALL);
use Win32::Clipboard;
use POSIX qw(strftime);

my @windows = FindWindowLike( 0, "Total", "" );
die "Could not find Total\n" if not @windows;

SetForegroundWindow( $windows[0] );

&send_keys;

sub send_keys {
my $dir=strftime( '%Y%m%d', localtime(time) );
my $CLIP = Win32::Clipboard();
  $CLIP->Set($dir);
  $CLIP->WaitForChange();
    SendKeys("^V");
#    SendKeys("{ENTER}");
}