わいえむねっと

Contents
Categories
Calendar
2026/05
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
Monthly Archives
~2000/01
Recent Entries
RSS1.0
Templates
Information
Processed: 0.055 sec
Chashed: -
2009/08/13 Thu
水面下で動きつつあるプロジェクトの打ち合わせに駆り出される。
ざっと確認した感じ、やばいにおいがぷんぷんしますね。
というか、それはいつものことですねそうですね。
もげそう。 結局Mutexを使用することにしましたよ。
過保護すぎますよ。 ウィスキー飲み過ぎ4日目。
2009/08/12 Wed
Microsoft SQL Serverのデータベース比較をテキスト比較ツールと若干のスクリプトだけでどうにかしてみるテスト。
とりあえず、

my @db = qw(foo bar);

foreach my $db(@db)
{
    mkdir $db unless -d $db;

    foreach(split /\n/, `sqlcmd -S server -U id -P password -d $db -Q "SELECT name FROM sysobjects WHERE xtype='U'"`)
    {
        next if /^name\s+$/ || /^-+$/ || /^\(/;

        if(/^([^\s]+)/)
        {
            `bcp $db.dbo.$1 out $db\\$1.csv -S server -U id -P password -c -t,`;
        }
    }
}

とかしてcsvに吐き出して比較してみたけど今ひとつ。

while(<*.csv>)
{
    /(.*)\.csv$/;

    open CSV, $_;
    open FIX, ">$1.txt";

    my @csv = <CSV>;

    my @max;
    foreach(@csv)
    {
        my $i = 0;
        foreach(split /,/)
        {
            my $len = length;
            $max[$i] ||= 0;
            $max[$i] = ($max[$i] < $len ? $len : $max[$i]);
            $i++;
        }
    }

    foreach(sort{$a cmp $b} @csv)
    {
        my $i = 0;
        foreach(split /,/)
        {
            s/\x00/ /;
            my $fmt = sprintf '%% %ds', $max[$i]+1;
            print FIX sprintf $fmt, $_;
            $i++;
        }
    }
}

ソートして固定長にすればそこそこ良好。


ウィスキー強化週間とかなんでしょうか。
今日も今日とてウィスキー。
うぃー。
2009/08/11 Tue
ウィスキーをシングル換算12杯くらい飲んだ翌日のようなだるさです。小坂那也です。(挨拶)
というかそれです。
さて、仕事仕事。 仕事を終えて帰宅して、朝のだるさはまるでなかったことかのようにウィスキーをまた飲む。
2009/08/10 Mon
事業部の共有サーバのバックアップ先ドライブが死亡。
バックアップ側で良かった。
と思っていたら、今度はプロジェクト用サーバの起動ドライブが死亡。
起動ドライブだからまぁなんとか。
さぁ、次はどこだ! 自宅サーバのsshd。
とりあえず、ローカルと会社から以外のアクセスを拒否。

Aug 10 03:42:57 foo sshd[30996]: refused connect from 117.34.70.30 (117.34.70.30)
Aug 10 08:00:05 foo sshd[31353]: refused connect from 93.113.28.100 (93.113.28.100)
Aug 10 10:15:30 foo sshd[31376]: refused connect from 61.135.242.249 (61.135.242.249)
Aug 10 16:10:56 foo sshd[31640]: refused connect from 222.222.68.36 (222.222.68.36)
Aug 10 16:12:05 foo sshd[31641]: refused connect from 222.222.68.36 (222.222.68.36)
Aug 10 17:31:47 foo sshd[31655]: refused connect from 218.206.25.29 (218.206.25.29)
Aug 10 17:32:35 foo sshd[31656]: refused connect from 218.206.25.29 (218.206.25.29)
Aug 10 19:08:25 foo sshd[31673]: refused connect from 202.115.80.150 (202.115.80.150)
Aug 10 20:51:35 foo sshd[31749]: refused connect from 189.59.8.26 (189.59.8.26)
Aug 10 21:12:47 foo sshd[31753]: refused connect from 222.221.2.210 (222.221.2.210)
Aug 10 21:16:44 foo sshd[31754]: refused connect from 222.221.2.210 (222.221.2.210)
Aug 10 22:23:43 foo sshd[31766]: refused connect from 220.165.9.232 (220.165.9.232)

鬱陶しすぎる。
2009/08/09 Sun
録りだめしていた化物語を一気観。
思いのほか良かったです。主に八九寺が。
しかし逐一総集編を挟むのはどうなのさ。

放送情報 化物語 - 西尾維新アニメプロジェクト
http://www.bakemo​nogatari.c​om/onair/schedule.h​tml
2009/08/08 Sat
眠いよ眠いよと言いつつ朝まで起きて、そこから泥のように眠って夕方起床。
今週のあれやこれやの疲労は概ね回復。
清々しい朝だ。いや、夕方だ。
「コッペパン 黒みつ&マーガリン \110-」

ドラマこち亀のタイアップ。
2009/08/07 Fri
仙台出張二日目。
も無事完了。撤収と相成りました。
こんなにすんなりいくなんて珍しいというか、まぁ、本番は盆明けなので。
今回はこんなものかなと。


牛タン食って帰ろう。 旧暦の七夕祭の真っ最中のせいか、指定席が数本後の便になってしまったのでコンビニ行脚で時間を潰す。
特に都内とラインナップに差異は見られなかったので、ランチパックの地方素材使用のものをいくつか。


「ランチパック ダブルミルククリーム \136-」
新潟県産良寛牛乳。


「ランチパック 嬬恋産キャベツメンチカツ \158-」
嬬恋産キャベツ。


「ランチパック 山ぶどうゼリー&ホイップ \136-」
岩手県産山ぶどう。
2009/08/06 Thu
仙台出張です。
会社から直で東京駅。
眠い。
とりあえず移動中は寝る。
そして普通に寝過ごしそうになる。 初日はとりあえず無事完了。
ホテルで水割飲みながら仕様追加分の実装を。
2009/08/05 Wed
明日から出張なのですが、朝5時出発とかわけわかんないこと言われたので今日は会社に泊まるよ!帰るの面倒だから!
というか、はなからそのつもりで準備済ませてきているあたりが用意周到というかなんというか泣きたい。
オゲー。
2009/08/04 Tue
移転後の初出勤から泊り込みってどうなんだ!小坂那也です。(挨拶)
どうもこうも。
眠いよ。 今日から工場調整のプロジェクトからのヘルプ要請の電話とか、今週末の出張の件で客先の担当殿からの電話とか、今週末に出張する先から別件での電話とか、研修チームからの社内ネットワークに関する質問の電話とか、外勤者からの引越し荷物の確認の電話とかをやりすごしながら仕事をだらだらと。
眠いよ。