e“ú‹L•— “Ƃ茾

‹C‚Ü‚®‚ê • ‹C‚Ü‚Ü • “VŽ×‹S‚ȘV‚¢‚Ú‚ê‹Zp‰®‚Ì“úX‚Ì‹L˜^‚Ì‚¤‚¿AŽå‚É PerlECGIEHTML‚È‚Ç Web‹Zp‚ÉŠÖ˜A‚µ‚½‹LŽ–‚Å‚·B
‰E’[ã’[‚Ì“¯ˆêƒJƒeƒSƒŠ[ƒWƒƒƒ“ƒvƒ{ƒ^ƒ“‚Å‘¼‚Ì“¯‚¶ƒJƒeƒSƒŠ[‚Ì‹LŽ–‚ð‡”Ô‚É‚²——‚¢‚½‚¾‚¯‚Ü‚·B
Access Counter:  ‘ƒAƒNƒZƒX”
-853- ‹v‚µ‚Ô‚è‚̉J
¡“ú‚Í’©‚©‚ç–{“–‚É‹v‚µ‚Ô‚è‚Æ‚¢‚¤‹C‚ª‚·‚é‰JB
ƒ‚¨“V‹CŽdŽ–„‚Æ‚¢‚¤–ó‚ł͂Ȃ¢‚ªA‚±‚̊Ԃ܂Ŏ©ì‚µ‚Ä‚¢‚½ƒTƒCƒgƒ}ƒbƒv‚Å–Y‚ê‚©‚¯‚Ä‚¢‚½ PerlŒ¾Œê‚ð­‚µ‚¾‚¯Žv‚¢o‚µ‚½‚Ì‚ÅAƒŠƒnƒrƒŠ‚‚¢‚łɂقƂñ‚Ç—˜—p‚³‚ê‚Ă͂¢‚È‚¢‚ªŒfަ”‚̃vƒƒOƒ‰ƒ€‚ÉAƒXƒpƒ€‚ÌŒŸoƒAƒ‹ƒSƒŠƒYƒ€‚ð­‚µ’ljÁBŽÀۂ̓ǎ҂̑‚«ž‚Ý‚Ì10”{ˆÈãƒXƒpƒ€‚Ì‘‚«ž‚Ý‚ÅA‚µ‚©‚à‚»‚̃Xƒpƒ€‚̂قƂñ‚Ç‚ªƒƒVƒA‚Æ‚©ƒEƒNƒ‰ƒCƒi‚ȂNjŒƒ\ƒrƒGƒg’nˆæ‚Ì IP‚Ȃ̂ÅAIPƒAƒhƒŒƒX‚©‚ç‘‹L†‚ðŒŸõ‚µ‚Ä‘ÎÛ‚Ì‘‚©‚ç‚Ì‘‚«ž‚Ý‚Ìꇂ͈ꊇ‘‚«ž‚݋֎~‚É‚µ‚Ă݂½Bi‹t‚É“ú–{‚¾‚¯‚ð‹–‰Â‚·‚邯‚¢‚¤•û‚ª³‰ð‚©‚à‚µ‚ê‚È‚¢‚ªA–œ‚ªˆê@ƒCƒ„ ‰­‚ɈêH@ƒAƒƒŠƒJ‚Æ‚©‚Ì“ú–{l‚ª‘‚«ž‚ñ‚Å‚­‚ê‚é‚©‚àEEE‚Æ‚¢‚¤ª‹’‚̂Ȃ¢Šú‘Ò‚ðŽÌ‚Ä‚«‚ê‚È‚©‚Á‚½j
use IP::Country::Fast; ‚ðŽg‚Á‚Ä
@my$reg = IP::Country::Fast->new();
@my$ctrycode = $reg->inet_atocc($host);
‚Æ‚¢‚¤ 2s‚¾‚¯‚ÅA$host‚ɃhƒƒCƒ“–¼‚âIP‚ð“ü‚ê‚Ä‚â‚ê‚Î $ctrycode ‚É JP‚Æ‚© US‚Æ‚©‚Ì‘‹L†‚ª•Ô‚³‚ê‚é Perl‚È‚ç‚ł͂֗̕˜‚³B‚Å‚à‚¿‚á‚ñ‚Æ“­‚¢‚Ä‚¢‚é‚©‚ÌŠm”F‚ÍH@ƒƒVƒA‚̃vƒƒLƒV‚ðŽg‚¤‚Æ‚©H@‚Ƃ肠‚¦‚¸ƒeƒXƒgƒvƒƒOƒ‰ƒ€‚ðì‚Á‚Ä‚»‚±‚É IP‚ð‹Lq‚µ‚ÄŠm”F‚µ‚Ă݂½B
¡“ú‚ÌŽÊ^‚ÍAð“ú‚̉ԂƂ͂©‚È‚èŽï‚ªˆÙ‚Ȃ邪‚±‚ê‚àƒJƒ^ƒoƒ~H@‰Ô‚ÌF‚ÍãY—í‚ȉ©FBŋ߂̉€Œ|Ží‚Í•iŽí‰ü—Ç‚ªŒƒ‚µ‚¢‚¹‚¢‚©“¯‚¶Ží—Þ‚Å‚àF‚âŒ`‚ª­‚µ‚¸‚ˆá‚Á‚Ä‚¢‚Ä–¼‘O‚̂킩‚ç‚È‚¢‰Ô‚ª‘½‚¢B
2013/05/11
 

e“ú‹L“à‚ÖƒWƒƒƒ“ƒv
<< “¯ˆêƒJƒeƒSƒŠ[ >>
< “ú•t‡ >
‹LŽ–@ˆê—— ÅV‹LŽ–