perl単語帳

use Win32::Clipboard;

my $clip = Win32::Clipboard();
exit 1 unless $clip->IsText();
my $text = $clip->GetText();
$filename ='newwords.txt';
open $fh,'>>',$filename or die;
print $fh $text."\n";
close $fh;

新しい単語を見つけたらそれをクリップボードにコピーした後、

このスクリプトを動かすとファイルに追加してくれる。

それだけ。

コピーがメンドクサイ。本当は選択して右クリックで送りたいところだけど。