はじめてのSVN::Client - はこべにっき ♨
とりあえず、あせらず、じっくりと進めていく感じで。SubversionをPerlから操作するためのバインディングを少しづつ使って行きます。 読み込み認証いらないsvnサーバからデータを拾って表示するのは以下のような感じ。 use strict; use warnings; use SVN::Client; sub say { print @_, "\n"; } my $ctx = SVN::Client->new(); # SVN::Clientオブジェクトの作成 my ($fh, $fc) = (undef, ''); open($fh, '>', \$fc); # svn cat http://svn.douzemille.net/repos/codepieces/poe.pl とおなじ $ctx->cat($fh, 'http://svn.douzemille.net/repos/c
設定ファイルをPerlとmakeとSubversionを使って管理する - 空繰再繰
設定ファイル類をperlとmakeとSubversionを使って管理する 設定ファイルをまとめて管理する でMakefileを使って設定ファイルを管理する方法が紹介されてるんだけど、 Makefileを手で生成するのはめんどくせーと言うことで、 サクっとPerlでMakefileを生成するスクリプトを書いてみた。 で、以下スクリプト。 #!perl use strict; use warnings; use File::Find; use FindBin (); my $source = $FindBin::Bin; my @files = (); find( sub { my $path = $File::Find::name; return if ( -d $path ); if ( $path =~ m{^$source/(.+)$} ) { my $filename = $1; #
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
