2015-04-26

ZshをインストールするためのAnsible-Roleを書いた

Ansible Ansible-Role Zsh

AnsibleのRoleシリーズの第3弾はシェルスクリプトのZshです。

akatakun/ansible-role-zsh · GitHub

第1弾Git: GitをインストールするためのAnsible-Roleを書いた - Akata Works
第2弾Vim: VimをインストールするためのAnsible-Roleを書いた - Akata Works
第4弾Scala: ScalaをインストールするためのAnsible-Roleを書いた - Akata Works

そして、設定がめんどくさい基本ツールのRoleは全部書き終わったような気がします。

やはりほとんど第1弾と第2弾の使い回しです・・
でも、使い回しが容易であることもAnsibleの良いところだと思います（学習コストも低いですし・・）

話は逸れますが、

僕はこれらのリポジトリをPrivateリポジトリのSubModuleとして持っており、
ansible-playbookコマンド一発で環境構築ができるようにしています。

イメージとしてはこんな感じ？？

* ansible/   # Privateリポジトリ
  * initialization.yml # Root Playbook
    * roles/
      * git/ # 第1弾
      * vim/ # 第2弾
      * zsh/ # 第3弾

まじsubmodule便利っす

と、まあ、

最初はログインシェルの変更までやるつもりでしたが、飽きちゃったんで設定ファイルのシンクまでです。
気が向いたら更新とTmuxとか他のツールのRoleも書いていこうかな(*´ڡ`●)

というかさっさとScalaやらねば・・

2015-04-26

perl: warning: Setting locale failed.

システム設定

MacからSSHでCentOSに接続してPerlを実行すると以下のエラーが出た。

perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
    LANGUAGE = (unset),
    LC_ALL = (unset),
    LANG = "ja_JP.UTF-8"
    are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").

現在のロケールの設定の中にインストールされていないロケールがあることが原因らしい。
現在のロケールの設定はlocaleコマンドで確認できるので確認するといい。

インストールされていなければついでにインストールしてしまおう。

localedef -f UTF-8 -i ja_JP ja_JP.UTF-8

根本的なことをいうと、単純にMacの設定を引き継いでいるからってこともある。
"/etc/ssh_config"ファイルから以下の行をコメントアウトするといい。

 Host *
   SendEnv LANG LC_*

ロケールの問題なので他のコマンドでも発生するかも・・

参考URL

centos に gitolite 導入, あとロケール問題 - Please Sleep

IBM Knowledge Center

2015-04-17

タイピングゲームを自動化するスクリプトを組んだった

Perl

今更ながら、YAPC::ASIA 2011の竹迫さんの発表を見て興味を持ったので、
Win32::GuiTestモジュールを触ってみました。

まあ、.NET Framework使えよって話ですがね。
せっかくオープンソース化されたので、時間があれば読んでおきたいな。

開発環境はCygwinとStrawberry Perlです。
Image MagickやImage::Magickモジュールのインストールがめんどうだった。
ちゃんと32Bitで統一しよう(；´Д｀)=3

竹迫さんが発表で仰っていましたが、
タイピングゲームを自動化すると面白そうだったので自動化しました。

akatakun/auto-typing · GitHub

画像ファイルとスクリーンショットをマッチングする簡単な仕組みですが、
X座標でソートして一気に打ち込むのはうまく出来たと思う。

sub match_words {
  my ( $screenshot, $words ) = @_;

  my %match_words;
  for my $word ( keys %$words ) {
    my @coords = $screenshot->match( $words->{ $word }, multiple => 1 );
    my @xs = @coords[ grep { $_ % 2 == 0 } 0 .. $#coords ];
    $match_words{$_} = $word for @xs;
  }
  return \%match_words;
}

これを某サイトで試したところランキングトップを超えるスコアを出せました(^ρ^)

恐らく画像ファイルさえ用意すれば、ほとんどのサイトで動くと思いますが、
ブラウザの解像度やエリアシングの有無でぱたりと動かなくなりますorz

最後に、、ランキング荒らしちゃ駄目だよ

参考サイト

<a href="http://yapcasia.org/2011/talk/32">YAPC::Asia Tokyo 2011 - Perlで無理ゲーム攻略 (How to play Win32::GuiTest)</a>

<a href="http://elecdove.blog.fc2.com/blog-entry-2.html">WindowsでPerlとImageMagickを使う - はとぴょん笑撃実験器</a>

2015-04-08

Perlのプラグマについて調べてみた

Perl

ふと、プラグマってたまーに聞くけど一体全体何なんだって思ったので調べてみた

個人的にはPerlプログラミング救命病棟の以下の説明がしっくりきた

Perl コンパイラの動作を変更するモジュールである

φ(ﾟДﾟ )ﾌﾑﾌﾑ…

確かにstringもwarningもutf8プラグマもPerl自体の動作を変えますね！！
あと、小文字なのは慣習らしいです

普通の関数やモジュールと何が違うんだろうってずっと思ってましたが
ようやくスッキリしました+.ﾟ(*´∀｀)bﾟ+

2015-04-07

VimをインストールするためのAnsible-Roleを書いた

Ansible Ansible-Role Vim

最近忙しくてちょっとペースが落ちてきているのが気になるakataです。
気が付いたら社会人も二年目になっていました。

今回は前回に引き続き、AnsibleでVimをインストールするためのRoleを書きました！！
と言っても、ほとんどGitの使い回しですが・・(^_^;)
一応、".vimrc"ファイルと".vim/"ディレクトリのシンクまでできます。

akatakun/ansible-role-vim · GitHub

第1弾Git: GitをインストールするためのAnsible-Roleを書いた - Akata Works
第3弾Zsh: ZshをインストールするためのAnsible-Roleを書いた - Akata Works
第4弾Scala: ScalaをインストールするためのAnsible-Roleを書いた - Akata Works

あと、Role内の変数名はRole名を付けるのが良いっぽいので、GitのRoleにも少し修正を加えました。

よーし、残りはZshのRoleを書いたら終わりかなー(；´∀｀)=3

参考URL

<a href="http://tdoc.info/blog/2014/10/09/ansible_coding.html">Ansible コーディング規約 (の例) — そこはかとなく書くよん。</a>

2015-03-28

GitをインストールするためのAnsible-Roleを書いた

Ansible Ansible-Role Git

まあ、タイトルどおりなんですが、AnsibleでGitをインストールするためのRoleを書きました！！でも、実際はセッティングとリポジトリのクローンまでできますよ。

本当はずいぶん前に書いたものもあるのですが、冪等性（笑）状態で、最適化もしていないオレオレAnsible Roleだったので・・

今回は外部に公開するつもりで思いっきり修正してきました！！

というわけで、GitHubに公開しました。
そのうちAnsible Galaxyにも公開すると思います。

akatakun/ansible-role-git · GitHub

第2弾Vim: VimをインストールするためのAnsible-Roleを書いた - Akata Works
第3弾Zsh: ZshをインストールするためのAnsible-Roleを書いた - Akata Works
第4弾Scala: ScalaをインストールするためのAnsible-Roleを書いた - Akata Works

git configやgitメソッドでリポジトリをクローンするとき、どうやって冪等性を担保しようかなど、Ansibleの勉強にもなったのでよかったです（まあ、git configは元々冪等性が担保されているのですが・・）

2015-03-23

Perlの文字列の扱い方・・其の壱

Perl

いい加減に理解しておこうと思って、Perlの文字列の扱い方についてまとめました。長いので2回に分けたいと思います。あと、ちょっと覚書みたいになってます（文章って難しい・・）

簡単に概要と背景ですが、

Perlのバージョン5.8以降は内部文字列をutf8として扱うため、マルチバイト文字列が使用することができるようになりました。そのとき、下位互換性を保つため、utf8フラグが付いている文字列を内部文字列とし、それ以外を外部文字列としました。

内部文字列：utf8フラグあり
外部文字列：utf8フラグなし

こんな感じだと思います。

ここで、ソースコード内に定義された文字列リテラルが内部文字列か外部文字列かを明示するプラグマについて紹介します。

これには"use utf8"プラグマと"use bytes"プラグマがあります。

"use utf8"プラグマはレキシカルスコープ内の文字列リテラルを内部文字列として扱い、"use bytes"プラグマは外部文字列として扱います。

以下のソースコードの実行結果が分かりやすいと思います。

use strict;
use warnings;

{
  use utf8;

  my $string = 'ほげ';

  print 'is utf-8: ' . ( utf8::is_utf8( $string ) ? 'true' : 'false' ) . $/;
  print 'lengths : ' . length( $string ) . $/;
  print 'string  :' . $string . $/;
}

{
  use bytes;

  my $string = 'ほげ';

  print 'is utf-8: ' . ( utf8::is_utf8( $string ) ? 'true' : 'false' ) . $/;
  print 'lengths : ' . length( $string ) . $/;
  print 'string  :' . $string . $/;
}

これを実行するとこうなります。

is utf-8: true
lengths : 2
Wide character in print at encode.pl line 64.
string  :ほげ
is utf-8: false
lengths : 6
string  :ほげ

前者の"ほげ"は内部文字列として扱われ、6バイトで2文字の文字列の長さが2であると解釈されていて、後者の"ほげ"は外部文字列として扱われ、6バイトで2文字の文字列の長さが6であると解釈されています。

なんで6バイトなのかというと、uft8における日本語が1文字で3バイトだからです。

ちなみにutf8::is_utf8関数はutf8フラグが付いているかを表す関数で、"Wide character in print at"という警告は内部文字列を出力したときに発生します。気になる方は次回で紹介するencode関数を使うといいです。

このようにPerlにはutf8フラグが付いているかで変化する処理があるため注意が必要です。デメリットもあまりないため、よく分からない人はなるべくutf8フラグを付けておくといいと思います。

ちょっと一息（ﾟ ρ ﾟ )ﾎﾞｰｰｰｰ（次回に続く）