| HTTP :: MobileAgent :: JPone. HTTP :: MobileAgent :: JPone Perl ¸ðµâÀº J-Phone ±¸ÇöÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
HTTP :: MobileAgent :: JPone. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î