使用 perl / tk 编辑>复制/粘贴实现

Question

我正在使用 Perl/Tk 为应用程序构建 GUI。我计划添加一个带有标准剪切、复制和粘贴选项的编辑菜单。在这里我意识到我从未真正使用 perl 与剪贴板进行过交互。

谁能给我一个有关在 Perl 中弄乱剪贴板的信息的链接？是否有专门用于此类功能的 perl 模块？

如果我与剪贴板交互，我是否必须将代码修改为特定于平台的代码，因为它是主机操作系统的一部分，而不是我的应用程序本身的一部分？

预先感谢您的帮助！

Answer 1

您是否在寻找 Win32::Clipboard？

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}");
}