VOYAGE GROUP　エンジニアブログ

ソースコードの一部の循環的複雑度は、ソースコード内の線形独立な経路の数である。実際、if文やfor文のような分岐点のないソースコードの場合、その複雑度は 1 であり、そのコードには1つの経路しかない。コードに1つのif文が含まれていれば、コードには2つの経路があることになる。つまり、一方はif文での条件が真となる場合の経路で、もう一方はそれが偽となる場合の経路である。
循環的複雑度 - Wikipedia

• ruleset.xml

  <!--?xml version="1.0"?-->
  <ruleset xsi:nonamespaceschemalocation="
                       http://pmd.sf.net/ruleset_xml_schema.xsd" xsi:schemalocation="http://pmd.sf.net/ruleset/1.0.0
                       http://pmd.sf.net/ruleset_xml_schema.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://pmd.sf.net/ruleset/1.0.0" name="sample PHPMD rule set">
      <rule ref="rulesets/codesize.xml/CyclomaticComplexity">
          <properties>
              <property value="1" name="reportLevel">
          </property></properties>
      </rule>
  </ruleset>

• 実行コマンド

  phpmd ＜対象プロジェクトディレクトリ＞ text ruleset.xml

case $HOST in

    'ココに開発機のhostnameを' )

        my_host="開発機"

        my_fg_host=${fg[green]}

        my_bg_host=${bg[reset_color]}

    ;;

    'ココに本番機のhostnameを' )

        my_host='本番機'

        my_fg_host=${fg[red]}

        my_bg_host=${bg[reset_color]}

    ;;

esac

PROMPT="%{$my_bg_host%}%{$my_fg_host%}$my_host%{${reset_color}%}%{${fg[cyan]}%}%n@%m%{${fg[yellow]}%}-> %{${reset_color}%}"

RPROMPT="%1(v|%F{red}%1v%f|)%{${fg[green]}%}[%~]%{${reset_color}%}%{$my_bg_host%}%{$my_fg_host%}$my_host%{${reset_color}%}" 

こんな感じで、vimのステータスラインでもプロンプトと同じようなメッセージを出すようにしましょう。

ソースはこんな感じ。

if hostname() ==? 'ココに開発機のhostnameを'

    let message='開発機'

elseif hostname() ==? 'ココに本番機のhostnameを'

    let message='本番機'

endif

" ステータスライン表示方法

set statusline=[%{message}]%<[%n]%m%r%h%w%{'['.(&fenc!=''?&fenc:&enc).':'.&ff.']'}%y\ %F%=%l,%c%V%8P\ [%{message}][%{hostname()}]

こちらもプロンプトのときと同じですね。

▼sshで背景色変更
今までは、メッセージを出すだけでしたが、そもそも本番機に繋いだら背景色を真っ赤にするとか
した方がより禍々しい感じがでそうですね。
これをやるためには、ssh-host-color.shを使いました。

より「本番機だぜ！」感が出ましたね。

▼最後に
本番機で作業しているということを意識させるためにあれこれカスタマイズしてきました。
しかしこれはあくまで意識させるためです。一番大事なことはコマンドを打つ場合などは
一旦確認してから実行することですね。 

こんにちは、Research Panel Asiaの大山です。 今回は、Perlで最近ホットなO/Rマッパ、 Teng の便利な使い方を共有いたします。

みなさんは、

sqlite> .tables
user_log_2013_03  user_log_2013_04
user_log_2013_05  user_log_2013_06
user_log_2013_07  user_log_2013_08

こういった、決まったスキーマの別名テーブルを扱う状況では、O/Rマッパの実装次第ではなかなか面倒なことになります。素SQL+DBIで実装するのも当然有効な選択肢と思いますが、Tengを使うととても簡単に解決することが可能です。

[MyModel.pm]

package MyModel;
use parent qw(Teng);
1;

[MyModel/Schema.pm]

package MyModel::Schema;
use strict;
use warnings;
use Teng::Schema::Declare;

sub get_table {
    my ($self, $table_name) = @_;
    $table_name =~ s/\d{4}\_\d{2}$/xxxx_xx/;
    $self->SUPER::get_table($table_name);
}

sub get_row_class {
    my ($self, $table_name) = @_;
    $table_name =~ s/\d{4}\_\d{2}$/xxxx_xx/;
    $self->SUPER::get_row_class($table_name);
}

table {
    name 'user_log_xxxx_xx';
    pk 'id';
    columns qw( id hoge fuga );
    row_class 'MyModel::Row::UserLog';
};

1;

Teng::Schema の中で、テーブルと行オブジェクトを扱うところの実装がとても単純になっているので、 このように get_table と get_row_class の2つのメソッドをオーバーライドしてあげるだけで、 扱うテーブル名によってちょっとした挙動の変更ができます。

こうすると、

my $handle = MyModel->new({ connect_info => ['dbi:SQLite:']});

my $item1 = $handle->insert(
    user_log_2013_07 => { hoge => 'hoge' }
);
# => MyModel::Row::UserLog インスタンス

my $item2 = $handle->insert(
    user_log_2013_08 => { hoge => 'hoge' }
);
# => MyModel::Row::UserLog インスタンス

$item1->update({ fuga => 'fuga' });
$item2->update({ fuga => 'fuga' });

$item1->delete;
$item2->delete;

それでは、またお会いしましょう。ごきげんよう。