where the wind shift...

맥북 쓴지도 이제 반년가까이 되가는데... 시간이 지날수록 윈도우를 더 많이 쓰게되더라는... -_-;

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

 제가 일하는 곳의 서버에는 붉은성(RedCastle)이라는 커널 보안툴을 필수적으로 설치하나 봅니다. 얼마전까지만 해도 이런 보안툴의 문제점에 대해서 아무런 생각이 없었는데, 이 녀석이 일으키는 문제들이 생각보다 큰 것 같습니다.

 db2 에는 db2pd 라는 번들된 모니터링 툴이있습니다. 이 녀석은 db2 프로세스를 뒤져서 메모리상의 정보를 얻어오는 녀석인데요.


 웃기게도 이녀석이 아무래도 db2pd 의 메모리 액세스를 막아버리는 것 같습니다. : ) - 뒷부분의 로그를 보면 더 process creation violation error 등등의 복잡 다양한 에러를 내 뱉습니다. -

 제가 듣기로는 이 녀석이 리눅스의 SELinux / IBM 티볼리 제품군등하고 비슷한 역할을 하는 국산 제품인 것으로 알고있는데.. (아닐지도 모릅니다만) 프로그램 자체의 완성도가 나쁘다라고 생각하기보다는 아무래도 테스트가 부족한 환경에서 개발된 탓인지 이런저런 문제를 일으킬 소지가 아무래도 많은 녀석인 것 같습니다.

 그렇다고 감사라고 나오면 설치했는지 확인하기때문에 설치는 해야하는 것 같고, 설치를 하면 언제 db2가 이 녀석 때문에 내려갈지 모를 불안감을 안고 가야하는...

 정책설정에서 아무래도 예외가 가능하긴 할 것 같은데 - 설마 보안툴인데 예외 처리가 없진 않을테고.. -_- - 단지 설치 운영의 업무가 명확히 구분된 나름 규모가 있는 곳에서는 지금처럼 운영중인 환경상에 저희도 모르는 채로 설치되서 잘되던 프로그램을 안되게 만들어 버리니... 그런게 문제인 것 같습니다.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

 사실 이게 공개해도 되는 문서인지는 모르겠기 때문에... 일단은 직접 링크는 접어서 포스팅합니다. 제가 IBM 이라면 당연히 널리 보급시키겠습니다만 IBM이 아니니까 -ㅅ-;;; 제 짧은 생각으로는 IBM은 일단 학교에서 부터 영업을 시작해야 해야하지 않을까 생각합니다. 사람들의 인식이 그렇게 빨리 변하지는 않기 때문이죠.

더보기

 IBM DB2를 시작하는 분들에게 참고가 되었으면 싶은 마음에서 - 그리고 시장 점유율이나 인식이 조금이라도 좋아졌으면 싶은 마음에서 - 이렇게 올려둡니다.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

한국 임베디드 리눅스 프로젝트 (이하 KELP)에서 세미나를 개최한다고 합니다.


http://kelp.or.kr/korweblog/pages.php?page=03/10/27/3640332

당일 낮에 할 일이 없을듯 보이니... 저는 놀러갈 듯 하군요. ^^;; 밤에는 여행가기로 했고... -ㅅ-
다행히도 세미나가 집 앞(이라기에는 좀 멀지만... ^^;; ) 이니 츄리닝입고 가도 될듯하군요 ㅎㅎ

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

 '형~ 파일 이름을 출력하고, 파일 첫줄을 찍고 싶은데... 쉘 스크립트로는 어떻게 해요?'

 글쎄... 어떤 문제이던지 해결 방법은 참 많을 수 있다라고 생각한다. 하지만, 문제를 내는 사람은 알게 모르게 본인이 생각한 방향대로 문제를 해결해 주기를 원하고, 그 방향으로 생각하도록 단서를 달아서 질문을 던지기 마련인 것 같다.

 나는 이 질문을 받으면서 생각했다. 

 그래 이건 파일 리스트를 얻어와서 for 문을 이용해서 아래처럼 수행시키면 되겠구나.

for FILENAME in `ll /target`
do
  echo $FILENAME
  head -n 1 $FILENAME
done

 알려주고 곰곰히 생각해보니 왜 굳이 이렇게 쉘 스크립트 작성해야하나 싶은거다. -_-

 분명히 이보다 훨씬 더 좋은 유닉스 최강의 프로그램!!! find 가 있는데 말이다.

find /target -exec echo {} \; -exec head -n 1 {} \;

 굳이 스크립트가 왜 필요하다고 생각했을까?? 싶을 정도로 너무나도 간단한 이 한가지 구문으로 결국 문제는 클리어~ 형상이 안부 묻고 일하러 ㄱㄳ

 이번일을 격으면서 생각한건데 어떤 질문이나 문제이던지 약간 틀어진 각도에서 문제는 다시 한번 재해석하는 과정을 거쳐야할 것 같다라는 생각을 해본다. 분명히 문제를 다른 각도에서 볼 수만 있다면 정공법을 이용하는 것보다 훨씬 더 편한 방법으로 문제를 해결할 수 있을 것 같다.

ps. 인생사 꼼수없는 문제는 없는 듯 하다. 히히히 : P

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

 펄을 배우면서 가장 놀라웠던 라이브러리는 GetOpt 라는 라이브러리인데


 이렇게 해주는 것만으로도 커맨드 라인에서 -o -D -I 같은 옵션을 간편하게 조작하는게 가능하기 때문에 말그래도 clp 환경에서의 프로그램 작성을 굉장히 편하게 했다. 당연히 자바에도 비슷한 라이브러리가 있겠지 하는 심정으로 찾아본 것이 이 JSAP이라는 녀석이다. - 솔직히 perl 만큼 간편하지는 않다 -_-;;;

http://www.martiansoftware.com/jsap/


나름 심플하다면 심플하지만... :-)
ps. Java로 만들어진 SMTP 서버를 찾아야 jmail 을 수정할 수 있는데... -_-

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

db2 운영 환경에서 db2pd 정보 중 tcbstats 정보를 수집하기 위한 스크립트입니다.

#!/usr/bin/perl
use Sys::Hostname;
use Getopt::Std;
use Switch;
use POSIX;

$host = hostname;

$TARGETDBNAME = "dbname";
$TARGETUSER   = "username";
$TARGETPASS   = "password";

switch ($host) {
    case "agdb1"    {   $DBNAME =   "NPAGDB"    }
    case "qudb1"    {   $DBNAME =   "NPQTDB"    }
    case "pddb1"    {   $DBNAME =   "NPPDDB"    }
    case "batdrdb"  {   $DBNAME =   "SFMIDB"    }
    case "agdevdb"  {   $DBNAME =   "AGDEVDB"   }
    case "qtdevdb"  {   $DBNAME =   "QTDEVDB"   }
    else            {   $DBNAME =   "Unknown"   }
}

sub process {
    # target loading
    switch ($_[0]) {
        case "file" {
            $filename = $_[2];
            open(MYDATA, $filename) or die ("error occured!");
            @lines = <MYDATA>;
        }

        else {
            while(<STDIN>) {
                @lines = (@lines, $_)
            }
        }
    }

    # to split line with whitespace
    # my $date = POSIX::strftime("%Y-%m-%d-%H:%M:%S", localtime(time()));
    my $input_date = POSIX::strftime("%Y-%m-%d-%H.%M.%S", localtime(time()));
    if ($_[1] ne "del") {
        print "db2 -v \"connect to $TARGETDBNAME user $TARGETUSER using $TARGETPASS\"\n";
    }

    # to find TCB Table Stats part.
    $beg_idx_stats = 0;
    $end_idx_stats = $#lines;
    foreach $stats_line (@lines) {
        if ( $stats_line =~ /TCB Table Stats/ ) {
            $beg_idx_stats++;
            last;
        } else {
            $beg_idx_stats++;
        }
    }
    @tcbstats = @lines[$beg_idx_stats+1..$end_idx_stats];

    # to find TCB Table Infomation.
    $beg_idx_info = 0;
    $end_idx_info = $beg_idx_stats-3;
    foreach $info_line (@lines) {
        if ( $info_line =~ /TCB Table Information/ ) {
            $beg_idx_info++;
            last;
        } else {
            $beg_idx_info++;
        }
    }
    @tcbinfo = @lines[$beg_idx_info+1..$end_idx_info];

    # generate data insertion statements.
    $line_no = 0;
    for $tcbstats_line (@tcbstats) {
        @stats_record = split /\s+/, $tcbstats_line;

        if ($stats_record[1] !~ /^IBM/ && $stats_record[1] !~ /^SYS/ && $stats_record[1] !~ /^TEMP/ && $stats_record[1] !~ /^INTERNAL/ && $#stats_record >= 12) {
            $table_schema = "unknown";

            for $tcbinfo_line (@tcbinfo) {
                @info_record = split /\s+/, $tcbinfo_line;
                if ($info_record[6] !~ /^IBM/ && $info_record[6] !~ /^SYS/ && $info_record[6] !~ /^TEMP/ && $info_record[6] !~ /^INTERNAL/) {
                        if ($stats_record[0] eq $info_record[0] ) {
                            $table_schema = $info_record[7];
                        }
                }
            }

            # db2pd tctstats index information
            # Address     00
            # TableName   01
            # Scans       02
            # UDI         03
            # PgReorgs    04
            # NoChgUpdts  05
            # Reads       06
            # FscrUpdates 07
            # Inserts     08
            # Updates     09
            # Deletes     10
            # OvFlReads   11
            # OvFlCrtes   12

            if ($_[1] eq "del") {
                print "\"$DBNAME\",\"$input_date\",\"$table_schema\",\"$stats_record[1]\",$stats_record[2],$stats_record[6],$stats_record[8],$stats_record[9],$stats_record[10]\n";
            } else {
                print "db2 -v \"insert into adm.tcbstats values ('$DBNAME', '$input_date', '$table_schema', '$stats_record[1]', $stats_record[2], $stats_record[6], $stats_record[8], $stats_record[9], $stats_record[10] )\"\n";
            }
        }

        if ($_[1] ne "del") {
            if ($line_no != 0 && $line_no % 100 == 0) {
                print "db2 -v \"commit work\"\n"
            }
        }
        $line_no++;
    }

    if ($_[1] ne "del") {
        print "db2 -v \"commit work\"\n";
        print "db2 -v \"terminate\"\n";
    }
   
    close MYDATA;
}

sub help {
    print "# ------------------------------------------------------------------  \n";
    print "# This shell is generated by insert_tcbstats.pl                       \n";
    print "# If you have a question, plz contact to youngchang.park@samsung.com  \n";
    print "# ------------------------------------------------------------------  \n";
   
    print "Usage : insert_tcbstats.pl -t [del|sh] -f [filename]                     \n";
    print "        insert_tcbstats.pl -t [del|sh] -s [STDIN]                        \n";
    print "        insert_tcbstats.pl -h                                            \n";
    print "        insert_tcbstats.pl -v                                            \n";
}

sub version {
    print "insert_tcbstats.pl version : 2009 / 06 / 25               \n"
}

%opts = ();
getopts("shvf:t:", \%opts);

if (defined $opts{h}) {
    help();
    exit 0;
}

if (defined $opts{v}) {
    version();
    exit 0;
}

if (defined $opts{t}) {
    if (defined $opts{s}) {
        process("stdin", $opts{t});
        exit 0;
    } else {
        if (defined $opts{f}) {
            process("file", $opts{t}, $opts{f});
            exit 0;
        }
    }
}
help();

적당히 필요한대로 수정해서 쓰시길~

- 2009.07.08
실제로 쓰는 스크립트는 기능을 좀더 추가함~

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

 플렉스를 작성하다 보면 이게 웹 프로그래밍인지, 어플리케이션 프로그래밍인지 참 애매한 경계를 느끼게 되는 것 같습니다. 그중에 가장 대표적인 녀석은 초기화 시점이 아닐지 생각해봅니다.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

KLDP Mr.DUST 님께서 올리신 자료를 스크랩합니다.

http://kldp.org/node/102947



vi 단축키 참 많지만 실제로 쓰기는 쉽지 않죠. 상당히 잘 정리해놓으셨더라구요.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.