고민의힘: 6월 2008

2008년 6월 27일 금요일

무엇인가를 얻기위해 읽는 것일까?

우연히 오스카와일드라는 작가의 글을 읽게 되었다.
all Art is quite useless.

그냥 이 문구만 놓고 본다면 뭐라고 할까 다소 극단적인 효용성에 가치를 둔 글 같지만 사실 그렇지 않다는 것이다. 산업화 기계화의 시대에 우리가 문학을 즐기고, 미술, 음악, 영화를 즐기는 것은 사실상 가치가 없이 느껴지지만 실상은 그렇지 않다라는 것을 역설적으로 나타내고 있는 글 인것이다.

이 시대를 살아가는 나는 반성한다, 책을 읽을때 마다 무엇인가 교훈을 얻으려 했고, 느낀게 무엇인가 읽기 전의 나와 읽은 후의 나는 무엇이 다른가? 등등의 실용적인 측면에 대한 기대가 너무 컸던것 같다.

참을 수 없는 존재의 가벼움, 자기 앞의 생, 그리스인 조르바 이런 책을 읽고 감동하고 눈시울을 붉혔으면 그만이지 뭘 얻으려 했었단 말인가?

감동 전의 인간과 감동 후의 인간이 무엇이 그리 달라야 한다는 말인가?
난 원하는 것이 없다, 난 자유다~

2008년 6월 17일 화요일

perl JSON module 사용 from_json으로 파싱된 데이터 사용

# $str_json에는 json형식의 string 데이터가 들어간다.
# orderingConfirmList의 key에 array의 형식으로 데이터가 들어있음[{"ORDER_NO":"11"},{"ORDER_NO":"2"}] 모 이쯤 되겠지.
# 그라지~~~

my $_scalar = from_json( $_str_json );
my @values = @{$_scalar->{'orderingConfirmList'}};

foreach my $_v ( @values )
{
# print Dumper ( $_v );
print $_v->{ORD_NO}. "\n";
}

2008년 6월 9일 월요일

앞으로 DBI대신에 DBix::class를 사용하기로 함.

DBIx::Class - Extensible and flexible object <-> relational mapper.
확장이 가능하다라, 어떻게 확장을 하겠다는 이야기인지?

샘플:
step 1. 먼저 사용자 객체를 생성한다.
1. Create a schema class called DB/Main.pm:

package DB::Main;
use base qw/DBIx::Class::Schema/;

__PACKAGE__->load_classes();

1;

2. Create a table class to represent artists, who have many CDs, in DB/Main/Artist.pm:

package DB::Main::Artist;
use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('artist');
__PACKAGE__->add_columns(qw/ artistid name /);
__PACKAGE__->set_primary_key('artistid');
__PACKAGE__->has_many(cds => 'DB::Main::CD');

1;

3. DB/Main/CD.pm 에 CD class 생성

package DB::Main::CD;
use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('cd');
__PACKAGE__->add_columns(qw/ cdid artist title year /);
__PACKAGE__->set_primary_key('cdid');
__PACKAGE__->belongs_to(artist => 'DB::Main::Artist');

1;

step 2. 프로그램 내부에서 사용
###################################################
# Connect to your database.
use DB::Main;
my $schema = DB::Main->connect($dbi_dsn, $user, $pass, \%dbi_params);
# dbi_params는 어떤것이지?

# Query for all artists and put them in an array,
# or retrieve them as a result set object.
my @all_artists = $schema->resultset('Artist')->all;
my $all_artists_rs = $schema->resultset('Artist');

# where 조건을 만들어 넣는군..흠흠..
# Create a result set to search for artists.
# This does not query the DB.
my $johns_rs = $schema->resultset('Artist')->search(
# Build your WHERE using an SQL::Abstract structure:
{ name => { like => 'John%' } }
);

# Fetch only the next row.
my $first_john = $johns_rs->next;

등등..흠 초기에 설정만 잘 해 놓으면 쉽게 사용이 가능하겠군.
굳이 좋은 점이라면 여러군데 산재되어 있는 query의 컨트롤 가능?