편집> perl/tk로 복사/붙여 넣기 구현

Question

저는 Perl/Tk를 사용하여 응용 프로그램의 GUI를 작성하고 있습니다. 표준 잘라 내기, 복사 및 붙여 넣기 옵션을 사용하여 편집 메뉴를 추가 할 계획입니다. 바로 여기 내가 실제로 perl을 사용하여 클립 보드와 상호 작용 한 적이 없다는 것을 깨달은 곳입니다.

누구나 내게 펄에서 클립 보드로 장난하는 것에 대한 정보에 대한 링크를 줄 수 있습니까? 특정 종류의 기능을위한 펄 모듈이 있습니까?

클립 보드가 호스트 OS의 일부이므로 응용 프로그램 자체의 일부가 아니기 때문에 클립 보드와 상호 작용할 경우 코드를 수정해야합니까?

미리 도움을 청하십시오!

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