φ(.. ) 備忘録：SSブログ

	ブログをはじめるログイン

デスクトップ環境をperl便利にする！その２：クリップボードをＨＴＭＬエンコード　 [perl]

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

#!/usr/bin/perl
#----------------------------------------
# [Windows用]
# クリップボードのデータをHTMLエンコードし、
# 結果をクリップボードに設定する。
use utf8;
use Encode;
use Win32::Clipboard;
use HTML::Entities;
my $clip = Win32::Clipboard();
exit 1 unless $clip->IsText(); # テキスト以外なら終了する
my $text = decode("cp932",$clip->GetText()); # テキスト取得
$text=HTML::Entities::encode_entities($text);
$clip->Set(encode("cp932",$text)); # テキスト設定
exit;
#----------------------------------------

上のコピペして、適当なところにclipboard_html_encode.plという名前で保存する。
保存したファイルのショートカットをデスクトップに作成し、名前を「clipboardをhtmlエンコードする。」
に変える。使い方は以下。

htmlエンコードしたいテキストをマウスで選択し、Ctrl+cでコピー。

「clipboardをhtmlエンコードする。」ショートカットをダブルクリック。

Ctrl+vで貼り付け。

2013-08-16 14:26 nice!(0) コメント(0) トラックバック(0)

デスクトップ環境をperl便利にする！その１：クリップボードをユニークソート　 [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で貼り付け。

2013-08-16 13:34 nice!(0) コメント(0) トラックバック(0)

Twitterまとめ投稿 2013/08/16　[つぶやき]

koiz009柿谷はやっぱり天才だな。A代表でも際立っていた。08/15 06:36

2013-08-16 09:01 nice!(0) コメント(0) トラックバック(0)

Twitterまとめ投稿 2013/08/15　[つぶやき]

koiz009フォルランとスアレスきてる。楽しみすぎる。08/14 10:18

2013-08-15 09:01 nice!(0) コメント(0) トラックバック(0)

Twitterまとめ投稿 2013/08/14　[つぶやき]

koiz009今から帰省渋滞はまりにいきまーす。08/13 01:50

koiz009ソネットブログ連携テスト。手動芝刈り機良好。08/13 01:49

2013-08-14 09:01 nice!(0) コメント(0) トラックバック(0)

GoogleサイトでJavaScript　[JavaScript]

Amazonのアフィリエイトで、予期せぬ収入があり、Ｗｅｂページの作成意欲が回復したので、最近新しいサイトをつくってみた。Googleサイトで

。
テンプレートの種類も多く、すごく簡単にＣＯＯＬ！なサイトができるが、スクリプターにとって、肝心なJavaScriptを普通に書くことができない

。
Google先生によるとGadgetなるものがあり、それを使えばJavaScriptを動作させることができるらしい。

Gadget作成～設置は、そんなに難しくないが、xmlファイル保存時の文字コードに気をつける必要がある。UTF-8のBOMについて知識がない方は、どこかからGadget用のxmlをダウンロードして使うことをお勧めする。
具体的な流れは以下。他サイトでは、xmlの保存先として、Google Gadgets Editorや、Google Codeをすすめているが、GGEは保存先がよくわからんし、Google Codeは素人には難しそうなので、今回はGoogleサイトにアップロードして使うことにする。

Gadget作成(sample.xml)。
　とりあえず下をコピペして、<script...>～</script>のところ好きなようにいじる。ModuleとかModulePrefsは意味がわからないが、動かすだけなら知らなくてもよさそう。おいおい勉強して紹介しようと思う。

<?xml version="1.0" encoding="UTF-8" ?>
<Module>
<ModulePrefs title="sample1" />
<Content type="html">
<![CDATA[
<script type="text/javascript">
document.write("<div align=center>Hello World!<div>");
</script>
]]>
</Content>
</Module>

Googleサイトにアップロード。

　ページ下方の[ファイル追加]を押すか、[サイト管理]の[添付ファイル]からアップロードする。

Googleサイトにガジェットを設置

　１．[ページを編集]をクリック

　２．[挿入] メニューで [その他のガジェット]を選択

　３．[URL を指定してガジェットを追加]をクリックしてＵＲＬ（※）を入力

　※注意

　ガジェットのＵＲＬは、[サイト管理]からアップロードしたときは、GoogleサイトのURL+「/」ファイル名。サイト内の[ファイル追加]からの場合は、ファイルのダウンロードボタンを右クリックして、[リンクアドレスをコピー]すれば取得可能。

2013-08-10 22:46 nice!(0) コメント(0) トラックバック(0)

Redmine REST APIをいじりたおす。　[perl]

仕事上、Redmineでタスク管理することにしたため、REST APIをごにょごにょするためのperlスクリプトを作成した。当初、その辺に転がっていたシェルをダウンロードして動かしてみたが、まったく動作しなかったので、自作することに。。。
結構完成度のたかいものができたので、皆様に展開します。

Redmine_ticket_control.pl
使い方は以下。

使用法: Redmine_ticket_control.pl [get|add|chg|del] [url] [jsonファイル名|json value]
　新規: new http://redmine/issues.json?key=[apikey]\&project_id=[id] [jsonファイル名|json value]
　変更: chg http://redmine/issues/[id].json?key=[apikey] [jsonファイル名|json value]
　削除: del http://redmine/issues/[id].json?key=[apikey]
　参照: get http://redmine/issues.json?key=[apikey]
  　　  get http://redmine/issues.json?key=[apikey]\\&project_id=1
        get http://redmine/issues.json?key=[apikey]\\&project_id=1\\&set_filter=1\\&f%5B%5D=created_on\\&op%5Bcreated_on%5D=\\>\\<\\&v%5Bcreated_on%5D%5B%5D=2012-12-23\\&v%5Bcreated_on%5D%5B%5D=2012-12-23
  　　  get http://redmine/issues/[id].json?key=[apikey]
   ※[apikey]
     redmineにログインし、右上の個人設定をクリック。
     APIアクセスキー欄にある表示を押すと確認できる。
   ※[json value例]
     トラッカー => \\{\\"issue\\":\\{\\"tracker_id\\":\\"2\\"\\}\\}
     ステータス => \\{\\"issue\\":\\{\\"status_id\\":\\"2\\"\\}\\}
     題名　　　 => \\{\\"issue\\":\\{\\"subject\\":\\"てすとでーす\\"\\}\\}
     説明　　　 => \\{\\"issue\\":\\{\\"description\\":\\"てすと\\\\r\\\\nでーす\\"\\}\\}
     担当者　　 => \\{\\"issue\\":\\{\\"assigned_to_id\\":\\"1\\"\\}\\}

Redmineによるタスクマネジメント実践技法

作者: 小川明彦
出版社/メーカー: 翔泳社
発売日: 2010/10/13
メディア: 大型本

入門Redmine 第3版

作者: 前田剛
出版社/メーカー: 秀和システム
発売日: 2012/08
メディア: 単行本

初めてのPerl 第6版

作者: Randal L. Schwartz
出版社/メーカー: オライリージャパン
発売日: 2012/07/25
メディア: 大型本

2012-12-30 22:47 nice!(0) コメント(0) トラックバック(0)

REGZA tablet AT300売却の巻　 [おすすめPCパーツ]

そんなに頑張ったつもりはなかったが、思いのほか会社から高評価をいただき、冬ボーナスが予想の額に

前からほしかったretinaディスプレイのipadを購入することにした。まだ、かってないけど。
で、不要となるAT３００をドスパラで売却。

TOSHIBA REGZA Tablet AT300/24C レグザタブレット Android3.1搭載タッチパネル付10.1型ワイド PA30024CNAS

出版社/メーカー: 東芝
メディア: Personal Computers

Apple 第4世代 iPad Retinaディスプレイモデル Wi-Fiモデル 32GB MD511J/A ブラック MD511JA

出版社/メーカー: Apple Computer
メディア: エレクトロニクス

欠品なし。液晶保護シートを買ってすぐつけて、前面はほぼ傷なし。うしろは若干きずがある状態。
買取上限金額１５，０００円だったが、いろいろ指摘され、９，５００円に・・。

まぁ。いいか。バッテリも劣化してきてたし。

2012-12-08 19:23 nice!(0) コメント(0) トラックバック(0)

DOPPELGANGERの折りたたみ自転車(202 blackmax)　[アウトドア]

この前購入した

DOPPELGANGER(ドッペルギャンガー) 202 blackmax 20インチアルミフレーム折りたたみ自転車シマノ7段変速マッドガード(泥よけ)/LEDライト/ワイヤーロック標準装備

出版社/メーカー: DOPPELGANGER(ドッペルギャンガー)
メディア: スポーツ用品

のレビューを書こうと思う。
「材質：アルミニウム」を期待してかったが、それほど軽くない。でも、その辺の激安折りたたみ自転車とくらべるとだいぶ軽い。子供だとむりだが、持って家の２階まであがってもさほど、苦ではない。
あわよくば、１年生の息子にもとおもったが、残念ながら、股下が足りず、足が地につかなったので、断念。
乗りごごちは、それなり、長距離は無理そう。おしりがいたくなるかも。
７段変則は、蛇足かもしれないな。おれは３段あれば十分かも。長距離のらないし。
見た目。かっこいい。さいこー

車のトランクにはいるし、キャンプのときのちょいのりに活躍可能。
なにより、あの値段でこのクオリティはいけてる。買ってよかった