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

【问题标题】：Edit>copy/paste implementation with perl / tk使用 perl / tk 编辑>复制/粘贴实现
【发布时间】：2012-05-21 21:26:04
【问题描述】：

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

谁能给我一个链接到有关在 perl 中弄乱剪贴板的信息？是否有专门针对这些功能的 perl 模块？

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

提前感谢您的帮助！

【问题讨论】：

标签： perl user-interface clipboard

【解决方案1】：

你在找Win32::Clipboard吗？

【讨论】：

这看起来很适合 Windows 环境。谢谢！

【解决方案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}");
}

【讨论】：