You may always get/set the value of this variable with the value() method:
$var->value(321); # set new value my $realvalue = $var->value; # store it in variable
좋구만..허나 내가 알고 싶은건 data set을 전달하는 방법인데?
왜 없지? 흠흠..
case 1. Static external
SOAP::Transport::HTTP::CGI
-> dispatch_to('Demo')
-> handle;
설명 : Demo는 @INC내에 있어야 하며 해당 서버는 Demo 클래스만을 dispatch할 수 있다.
Case 2. Dynamic
SOAP::Transport::HTTP::CGI
-> dispatch_to('/home/soaplite/modules')
-> handle;
설명: 모듈이 저장된 디렉터리를 설정함으로써 모듈 디렉터리 내부의 클래스들을 사용할 수 있다.
Case 3. Mixed
SOAP::Transport::HTTP::CGI
-> dispatch_to('/home/soaplite/modules', 'Demo', 'Demo1', 'Demo2')
-> handle;
설명: 디렉터리와 특정 모듈을 모두 사용할 수 있다.
개인을 재 창조 하라.
울타리 밖의 세상을 두려워 하지 말아야 한다.
세상의 법칙은 어디나 같다.
. 흥이 나야 한다.
. 충격적이어야 한다
. 완전히 달라야 한다.
평생 직장은 없다.
대기업도 안정적인 직장은 아니다.
앞으로는 평균 6개 이상의 직장과 2~3개의 직업을 갖는 시대가 올 것이다.
=> 돈을 여러군데로 부터 벌어야 한다. 다각화 및 분산화가 필요한 시기이다.
독립계약자의 삶을 살아라.
항상 위의 법칙들을 생각하고 실천하기 위해 노력해야 한다. 평범하고 흥이나지 않는다면 죽은것이다. 죽고싶냐?
개인의 능력은 프로젝트의 추진력 여부에 달려 있다고 해도 과언이 아니다.
혼자 하려니 힘드냐? 둘이 하는것 보다 혼자 하는게 더 효율적일 수 있다.
이 칸막이에서 쫒겨나면 무엇을 해야 할까? 너무 무섭다...다들 무섭다. 그건 니가 온실안 화초라서 그래..누가 내 치즈를 옮겼는가? 알지? 항상 귀를 쫑긋 세우고 뛰어나갈 준비를 해야 해...지금 치즈는 얼마나 있지? 난 다른 치즈를 향해 뛰고 있는가?
톰 피터스는 처음부터 계속 얘기 한다.
평범한 성공보다 큰 실패가 훨씬 나은 것이다 라고..
- 당신은 당신 삶의 이야기꾼이며 당신만이 전설을 창조 할 수 있다. (소설가 이사발 아옌데)
- 나는 평범함보다 나쁜것은 없다고 생각한다(영화 아메리칸 뷰티에서 미라수바리)
- 급변하는 시대에는 자아와 정체성에 관해 다시 생각해야 한다
- 나는 "나"라고 불리는 회사를 위해 일한다. - 멋지다....jk
- 남을 탓하지 마라!! 아무것도 기대하지 마라!! 뭔가를 하라 - 뉴욕제즈의 코치 빌 파셀스
브랜드유가 아니면 죽음이다. - 개인이 사회에 대해 내세울 무언가가 없다면 죽는거다.
난 주식회사 나의 CEO다.
튀지 않으면 죽음뿐..
나를 브랜드로 만들기 위해 점수를 매기는 것도 좋은 방법인것 같다.
. 지금 수행하는 프로젝트에 점수를 매긴다.
나는 WMS, 자동 발주, Open Api, 이미지 서비스 프로젝트를 수행한다.
. 새로 배우고 있는 것들에 대해 점수를 매긴다.
나는 web service, oop perl 에 대해 공부 중이다.
. 외부의 인정을 받기위한 전략?
생각해 본적 없는데..
. 내 전화번호부에 몇몇의 사람이 추가 되었고 관리되고 있는가?
. 내 이력서는 update되고 있는가?
이력서가 있던가? 흠흠....문제가 있군.
브랜드 유 생존의 도구 상자
모험가가 되어야 한다.
최고가 되기 위해 끊임없이 노력해야 한다. (지금 알고 있는 모든것을 open하는 수밖에 없지)
마케팅을 터득? 흠...무엇이 마케팅이지?
난 마케팅은 기본적으로 고객과 지속적이고 긍정적인 관계를 유지하는 것 이라고 정의 하겠음
URL: http://guide.soaplite.com/#item_uri
Web Service에 대한 대략적 study와 병행해서 실제 perl의 SOAP::Lite를 사용하여 Web Service를 작성해 보고자 한다.
#============================
# business module
# date: 2007.5.2
#
package Demo;
sub hi {
my ($class, $a) = @_;
return "HI $a \n";
}
sub bye {
return "goodbye, cruel world";
}
#===============================
# object Acess
#
sub new {
my $self = shift;
my $class = ref($self) || $self;
bless {_temperature => shift} => $class;
}
sub as_fahrenheit {
return shift->{_temperature};
}
sub as_celsius {
return 5/9*(shift->{_temperature}-32);
}
1;
#================================
# service.cgi
# date: 2007.5.2
#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
use Demo;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Demo')
-> handle;
#================================
# client.pl
# date: 2007.5.2
#!perl -w
use SOAP::Lite;
# -> uri('http://www.ezadmin.co.kr')
# uri는 class의 위치?
print SOAP::Lite
-> uri('http://[domain]/Demo')
-> proxy('http://[domain]/service.cgi')
-> hi( "123" )
-> result;
결과
$ perl client.pl
HI 123
쩝 이 단순한 결과를 얻기 위해 하루종일 이렇게 저렇게 해보다니..ㅠ.ㅠ 내일은 autodispatch 에 대해서 작업할 예정
