HTTP :: MobileAgent :: JPone.

HTTP :: MobileAgent :: JPone Perl ¸ðµâÀº J-Phone ±¸ÇöÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

HTTP :: MobileAgent :: JPone. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Tatsuhiko Miyagawa
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~miyagawa/

HTTP :: MobileAgent :: JPone. ű×


HTTP :: MobileAgent :: JPone. ¼³¸í

HTTP :: MobileAgent :: JPone Perl ¸ðµâÀº J-Phone ±¸ÇöÀÔ´Ï´Ù. HTTP :: MobileAgent :: JPone Perl ¸ðµâÀº J-Phone ±¸ÇöÀÔ´Ï´Ù .Synopsis HTTP :: MobileAgent¸¦ »ç¿ëÇÕ´Ï´Ù. ·ÎÄà $ ENV {http_user_agent} = "J-Phone / 2.0 / J-DN02"; ³» $ agent = http :: mobileagent-> new; printf "name : % sn", $ agent-> À̸§; # "J- ÀüÈ­"PRINTF "¹öÀü : % SN", $ ¿¡ÀÌÀüÆ® -> ¹öÀü; # 2.0 PRINTF "¸ðµ¨ : % SN", $ ¿¡ÀÌÀüÆ® -> ¸ðµ¨; # "J-DN02"Àμâ "ÆÐŶÀº ȣȯµË´Ï´Ù. $ Agent-> Packet_Compliant; # false # Java Compliant # eg) "J-Phone / 4.0 / J-SH51 / snxxxxxxxxx sh / 0001a ÇÁ·ÎÇÊ / MIDP-1.0 ±¸¼º / CLDC-1.0 ext-profile / jscl-1.1.0"printf "½Ã¸®¾ó : % Sn ", $ Agent-> serial_number; # xxxxxxxxxx printf "°ø±Þ ¾÷ü : % sn", $ agent-> °ø±Þ ¾÷ü; # 'sh'printf "º¥´õ ¹öÀü : % sn", $ agent-> vendor_version; # "0001a"$ info = $ self-> java_info; # Çؽà ÂüÁ¶Áöµµ { "$ _ : $ info -> {$ _} n"} Å° % $ info; http :: mobileagent :: jpher´Â http :: mobileagent :: VodafoneÀÇ ÇÏÀ§ Ŭ·¡½ºÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


HTTP :: MobileAgent :: JPone. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

ÀζóÀÎ - API.

ÀζóÀÎ API´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î¸¦ inline.pmÀ» »ç¿ëÇÏ¿© Perl¿¡ ¹ÙÀεùÇÏ´Â ¹æ¹ýÀ» °¡¸£ÃÄÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

220

´Ù¿î·Îµå