パーセントエンコーディングをデコードするperlスクリプト

仕事していて日本語が含まれたURLを扱うことがあるのですが
そのまま資料やメールに張り付けると長くて見栄えが悪く
困ってました。

クリップボードにコピーしたパーセントエンコーディングを含む文字列を
日本語にデコードして再度クリップボードに戻すPerlスクリプトを作りました。

使い方は

  1. パーセントエンコーディングを含むURLをCtrl+cでコピー
  2. スクリプトをダブルクリック
  3. Ctrl+vで貼り付け
use strict;
use Win32::Clipboard;
use URI::Escape;
use Encode;

my $clip = Win32::Clipboard();
my $text;


# クリップボードから文字列を取得
$text = $clip->GetText();

# URLデコード
# 結果にはUTF8フラグが付く
$text = uri_unescape($text);

# 文字コードをSJISに戻す
Encode::from_to( $text, 'utf8', 'sjis' );

# クリップボードに戻す
$clip->Set( $text );