#!/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;
#----------------------------------------
BoldAsFont=yes
Transparency=medium
FontSmoothing=full
AllowBlinking=yes
Locale=ja_JP
Charset=UTF-8
Font=ＭＳ ゴシック
urllist
0 [http://cpan.cs.pu.edu.tw/]
Type 'o conf' to view all configuration items
Please use 'o conf commit' to make the config permanent!
urllist
Type 'o conf' to view all configuration items
Please use 'o conf commit' to make the config permanent!
urllist
0 [http://ftp.jaist.ac.jp/pub/CPAN/]
Type 'o conf' to view all configuration items
| install Encode | 文字コードトラブル回避要 |
| install Win32::Clipboard | Windowsのクリップボードが操作できる |
| install Win32::OLE | Windowsのアプリケーション操作可能 ん。なんかmake NOとかいわれるな。後で調べよう ⚠️12/15追記 もしかしたら64bitのCygwinだからかも。 |
set path=(/usr/local/bin $path)使い方は、 nkf --help で勉強。
Usage: nkf -[flags] [--] [in file] .. [out file for -O flag]
j/s/e/w Specify output encoding ISO-2022-JP, Shift_JIS, EUC-JP
UTF options is -w[8[0],{16,32}[{B,L}[0]]]
J/S/E/W Specify input encoding ISO-2022-JP, Shift_JIS, EUC-JP
UTF option is -W[8,[16,32][B,L]]
m[BQSN0] MIME decode [B:base64,Q:quoted,S:strict,N:nonstrict,0:no decode]
M[BQ] MIME encode [B:base64 Q:quoted]
f/F Folding: -f60 or -f or -f60-10 (fold margin 10) F preserve nl
Z[0-4] Default/0: Convert JISX0208 Alphabet to ASCII
1: Kankaku to one space 2: to two spaces 3: HTML Entity
4: JISX0208 Katakana to JISX0201 Katakana
X,x Convert Halfwidth Katakana to Fullwidth or preserve it
O Output to File (DEFAULT 'nkf.out')
L[uwm] Line mode u:LF w:CRLF m:CR (DEFAULT noconversion)
--ic=<encoding> Specify the input encoding
--oc=<encoding> Specify the output encoding
--hiragana --katakana Hiragana/Katakana Conversion
--katakana-hiragana Converts each other
--{cap, url}-input Convert hex after ':' or '%'
--numchar-input Convert Unicode Character Reference
--fb-{skip, html, xml, perl, java, subchar}
Specify unassigned character's replacement
--in-place[=SUF] Overwrite original files
--overwrite[=SUF] Preserve timestamp of original files
-g --guess Guess the input code
-v --version Print the version
--help/-V Print this help / configuration
Network Kanji Filter Version 2.1.3 (2013-11-22)
Copyright (C) 1987, FUJITSU LTD. (I.Ichikawa).
Copyright (C) 1996-2013, The nkf Project.
#--------------------------------------------------# tcshrcset path=(/usr/local/bin $path)# プロンプト設定set prompt="%m->%B[%~]%b "# ターミナルのタイトルバー設定printf "\033]2;${PWD}\007"#--------------------------------------------------# aliasalias ls 'ls --color -F'alias h 'history'alias rm '/bin/rm -i'alias purg '/bin/rm -i *~ .*~ #*# .saves-*'alias lpurg '/usr/bin/find -name \*~ -exec rm -i {} \;'alias less 'nkf -w \!* | /bin/less -r'alias cd 'cd \!*;printf "\033]2;${PWD}\007"'alias pushd 'pushd \!*;printf "\033]2;${PWD}\007"'alias popd 'popd \!*;printf "\033]2;${PWD}\007"'#--------------------------------------------------# Windows Applicationalias e 'run /cygdrive/c/WINDOWS/explorer "`cygpath -aw \!*`"'alias ne '~/tools/emacs/bin/runemacs.exe "`cygpath -aw \!*`" &'
|
|
