タグ

diffとperlに関するkiyo_hikoのブックマーク (2)

  • MySQL::diffでデプロイ時のDBスキーマ更新を自動化! | 創作メモ帳

    前回のエントリ DBテーブルの差分を出力するMySQL::diffをインストールする の続きです。 前回のおさらいを少しすると、 MySQL::diff は二つのデータベーススキーマを比較して差分の ALTER SQL を出力してくれる perl 製スクリプトツールです。 例として以下のコマンドは、database1 データベースを database2 データベースのスキーマに追従する ALTER SQL が生成されます。DB スキーマの更新に便利です。 mysqldiff -u user -p password -i database1 database2 このツールのメリットはフレームワークに依存しないスタンドアロンなスクリプトであることだと思います。デメリットは最近の MySQL の機能に対応していなかったりすることだと思います。例えば PARTITION には対応していません。中身

  • perlで2つの配列を比較する方法について - OKWAVE

    関数型プログラムになれてれば 読めるコードですけど,Perl風味が混じってるので ちょっとしんどいですね. リファレンスを知ってるかどうかが重要です. {map{$_,1}@array2 }-> {$_} ここが何をしてるのかわかれば,大体OKかな map{$_,1}@array2 の部分では,@array2の要素を一個じつ$_1にいれて 1とペアにしています.たとえば,@array2=(a,b,c,d)だったら aを$_にして,a,1 をつくって bを$_にして,b,1をつくって・・・とやって (a,1,b1,c,1,d,1) というリストを作ります.これがmapの機能 これを { } で囲んで { (a,1,b1,c,1,d,1) } というのを作るんだけども,これは { a,1,b1,c,1,d,1 } と同じで,無名のハッシュ(ハッシュのリファレンス)を 作る.つまり {a=>1,

    perlで2つの配列を比較する方法について - OKWAVE
    kiyo_hiko
    kiyo_hiko 2012/07/13
    これいいな 使おう 「@diffs = grep {!{map {$_,1} @ys}->{$_}} @xs」 / 追記id:entry:17647281
  • 1