| WebService :: Careerjet. CAREERJETÀÇ °ø°ø ±¸Ãë¿Í PERL ÀÎÅÍÆäÀ̽º °Ë»ö API |
Áö±Ý ´Ù¿î·Îµå |
WebService :: Careerjet. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jerome Eteve
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jeteve/
WebService :: Careerjet. ű×
WebService :: Careerjet. ¼³¸í
CareerJetÀÇ °ø°ø ±¸Ãë¿Í Perl ÀÎÅÍÆäÀ̽º °Ë»ö API WebService :: CareerjetÀº 60 °³±¹ À̻󿡼 Á÷¾÷À» Á¦°øÇÏ´Â Á÷¾÷À» Á¦°øÇÏ´Â Á÷¾÷À»À§ÇÑ ¼öÁ÷ °Ë»ö ¿£Áø ÀÎ CareerjetÀÇ °ø°ø °Ë»ö API¿¡ Perl ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. (http://www.careerjet.co.uk/?worldwide) ¸í·É °Ë»ö ] <Å°¿öµå> Gubsearch - ^ »ùÇà ÄÚµå : WebService :: Careerjet; # API¿¡ Perl ÀÎÅÍÆäÀ̽º ¸¸µé±â My $ CareerJet = WebService :: CareerJet-> New ( 'EN_GB'); # °Ë»ö¾î ³» $ °á°ú = $ CARERJET-> °Ë»ö ({ 'Å°¿öµå'=> 'Perl Developer', 'À§Ä¡'=> '·±´ø', 'AFFID'=> '0afaf0173305e4b9',}); # ($ °á°ú -> { 'À¯Çü'} eq 'Jobs') {print "¸¦ ÂüÁ¶ÇÏ¸é °á°ú°¡ ³ªÅ¸³³´Ï´Ù. $ °á°ú -> { 'È÷Æ®'}. MY $ JOB = $ RETECT -> { 'JOBS'}; ³» $ j (@ $ ÀÛ¾÷) {Àμâ "URL :". $ j -> { 'URL'}. "\ n"; "Á¦¸ñ :"ÀμâÇϽʽÿÀ. $ j -> {Á¦¸ñ '}. "\ n"; Àμâ "ȸ»ç :". $ j -> {ȸ»ç '}. "\ n"; "SALARY :". $ j -> { 'SALARY'}. "\ n"; "³¯Â¥ :"ÀμâÇϽʽÿÀ. $ j -> {date '} "\ n"; Àμâ "¼³¸í :". $ j -> {description '}. "\ n"; "»çÀÌÆ® :"¸¦ ÀμâÇϽʽÿÀ. $ j -> {site '}. "\ n"; "À§Ä¡": $ j -> { 'À§Ä¡'} "\ n"; Àμâ "\ n"; }} ¿ä±¸ »çÇ× : ¡¤ Perl.
WebService :: Careerjet. °ü·Ã ¼ÒÇÁÆ®¿þ¾î