デスクトップ環境をperl便利にする！その１：クリップボードをユニークソート

perlでクリップボードのデータをユニークソートし、結果をクリップボードに設定する。
#windows端末で、perl環境が整っていることが前提ですので、ご注意を！
ソースは以下。

#!/usr/bin/perl
#----------------------------------------
# [Windows用]
# クリップボードのデータをユニークソートし、
# 結果をクリップボードに設定する。
use utf8;
use Encode;
use Win32::Clipboard;
my $clip = Win32::Clipboard();
exit 1 unless $clip->IsText(); # テキスト以外なら終了する
my $text = decode("cp932",$clip->GetText()); # テキスト取得
# 連想配列を使ってユニーク
my %hash=();
foreach $rec (split(/\n/,$text)){
    $rec=~s/\r//g;       # LFを削除
    next if($rec eq ""); # スペースは除外
    $hash{$rec}="";
}
$text="";
foreach $key (sort keys(%hash)){
    $text.=$key."\r\n";
}
$clip->Set(encode("cp932",$text)); # テキスト設定
exit;
#----------------------------------------

上のコピペして、適当なところにclipboard_sort_uniq.plという名前で保存する。
保存したファイルのショートカットをデスクトップに作成し、名前を「clipboardをuniq-sortする。」
に変える。使い方は以下。
ユニークソートしたいデータ群をマウスで選択し、Ctrl+cでコピー。
「clipboardをuniq-sortする。」ショートカットをダブルクリック。
Ctrl+vで貼り付け。