Perl Clipboard 사용하기

보통 Autohotkey 를 사용하여 clipboard 의 내용을 바꾸거나 하는 과정들을 많이 하곤 하는데요~

 

오늘은 Perl 에서 clipboard 의 내용을 변경하거나 하는 방법에 대해 알아봤습니다.

 

Perl 의 CPAN 을 찾다 보니 역시나 있더군요.

 

윈도우의 경우 Win32::Clipboard 모듈을 설치해 줘야 합니다.

 

저는 Strawberry Perl 을 설치해서 CPAN Client 를 사용하는데요~

 

다음과 같이 CPAN Client를 실행한 후에~

 

아래 그림과 같이 Win32::Clipboard을 install 합니다.

install Win32::Clipboard

 

 

이제~ Perl 에서 Win32::Clipboard 모듈을 사용하면 되는데요~

 

사용법은 굉장히 심플하더군요.

 

아래는 예제 코드 입니다.

 

use strict;

use warnings;

use Win32::Clipboard;

 

my $CLIP = Win32::Clipboard();

 

my $String=$CLIP->Get(); # Clipboard 내용 가져오기

 

print $String;

 

$CLIP->Set("Changed Clipboard"); # Clipboard 에 저장하기

$CLIP->WaitForChange();          # Clipboard 내용 바뀔 때까지 기다리기

 

위 코드를 실행 시키면~ clipboard 에 Changed Clipboard 라는 내용이 저장되게 됩니다.

 

CTRL + V 를 눌러서 붙여 넣어보면 Changed Clipboard 라는 내용이 붙여 넣어집니다.

 

아래는 Windows CMD 창에서 실행 시킨 내용입니다.