設定ファイルをPerlとmakeとSubversionを使って管理する:複数環境対応編

概要: 複数の環境の設定ファイルを Perl + make + Subversion で管理する

えーっと、前回三月の月末に設定ファイルを Perl と make と Subversion を使って管理するという記事を書いたわけですが、この記事を書いた段階では、Makefileを生成するMakefile.PLは複数の環境に対応していませんでした。

で、前に VMware 上の Ubuntu から Cygwin に環境を移した際にいい加減なまま放置していた設定ファイルの管理を今回やり直したときに、環境固有の設定と複数の環境共有の設定を分けたい！ということで、前回書いたMakefile.PLを複数の環境に対応できるように改良してみました。

で、以下改良したMakefile.PL

#!perl

use strict;
use warnings;

use File::Find;
use FindBin ();
use POSIX qw( uname );

my $source      = $FindBin::Bin;
my $username    = $ENV{'USER'} || $ENV{'USERNAME'} || 'default' ;
my $machine     =  [[uname]] -> [[1]] ;

my %files;

for my $root ( 'share', "${username}\@${machine}" ) {
my $parent = "${source}/${root}";
find(
sub {
my $path = $File::Find::name;

return if ( -d $path );

if ( $path =~ m{^$parent/(.+)$} ) {
my $filename = $1;

return if ( $filename eq 'Makefile.PL' );
return if ( $filename eq 'Makefile' );
return if ( $filename =~ m{~$} );

$files{$filename} = $path;
}
},
$parent,
);
}

my $makefile;

$makefile .= qq{TARGETS = };
$makefile .= join( qq{ \\\n\t}, map { "/$_" } keys %files );
$makefile .= qq{\n\n};

$makefile .= qq{INSTALL = sudo /usr/bin/install -o root -m 0644\n\n};
$makefile .=  q{all: ${TARGETS}} . qq{\n\n};

for my $filename ( sort keys %files ) {
my $path = $files{$filename};
$makefile .= qq{/${filename}: ${path}\n};
$makefile .= qq{\t} . q{${INSTALL} $? $@} . qq{\n\n};
}

if ( open( my $fh, '>', 'Makefile' ) ) {
print $fh $makefile;
close($fh);
}

改良点としては、前回のMakefile.PLは実行したディレクトリを root と見立ててファイルを配置する Makefile を生成していましたが、今回はshareとu（）s（）e（）r（）n（）a（）m（）e（）@h（）o（）s（）t（）n（）a（）m（）e（）をルートと見立てるようにしました。

どういうことかって言うと、前は

~/config
Makefile.PL     # Makefile.PL
home/
nyarla/
.zshrc  # /home/nyarla/.zshrcに配置される

という感じだったのが、今回は

~/config
Makefile.PL             # Makefile.PL
share/                  # 複数の環境で共有の設定ファイル
home/
nyarla/
.zshrc      # /home/nyarla/.zshrcに配置される
{username}@{hostname}/  # 環境固有の設定ファイル
home/
nyarla/
.zshenv     # /home/nyarla/.zshenvに配置される

という感じになります。

で、u（）s（）e（）r（）n（）a（）m（）e（）はログインユーザー名、h（）o（）s（）t（）n（）a（）m（）e（）はマシンのホスト名に対応してます。あとu（）s（）e（）r（）n（）a（）m（）e（）@h（）o（）s（）t（）n（）a（）m（）e（）ディレクトリとshareディレクトリに同じパスのファイルがあった場合、 u（）s（）e（）r（）n（）a（）m（）e（）@h（）o（）s（）t（）n（）a（）m（）e（）ディレクトリ以下のファイルが優先されます。

でまあ使い方は前回のスクリプトと同じで、

$ perl Makefile.PL

してから、

$ make

するだけで OK です。

ちなみに僕が実際の環境で使用しているMakefile.PLはsudoを使わないようになってます。(Cygwin にsudoがないからね)

でまあ、僕が使ってる実際の設定ファイルでは、共有の設定ファイルから環境固有の設定ファイルを読み込む、みたいな感じの処理をしてたりします。

例を上げると~/.zshrcでは

# global な設定

PROMPT="%(!.#.$) "
RPROMPT=' [[%~]] '

# local な設定
sourcefile=~/.zsh.d/${USER}@`uname -n`/.zshrc
if  [[ -r $sourcefile ]]  ; then;
source $sourcefile;
fi;

という感じです。

まあでも設定ファイルを include できない場合のアプリケーションだと、ちょっと困ったことになりそうな予感ですが。まあ今のところは困ってないので、その辺り放置です＞＜

まあ今回の改良で複数の環境の設定ファイルをまとめて管理できるようになったので、良かったら使ってみてください。

#FIXME