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

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

有人能给我一个链接，指向有关在perl中弄乱剪贴板的信息吗？有专门针对这些函数的perl模块吗

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

---

提前感谢您的帮助

您正在寻找吗？

您正在寻找吗？

看起来它在Windows环境下会很好地工作。谢谢这看起来可以很好地用于Windows环境。谢谢

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