作者 主題: [分享] IP 對應國家的 Perl  (閱讀 2400 次)

0 會員 與 1 訪客 正在閱讀本文。

Timmy

  • 可愛的小學生
  • *
  • 文章數: 13
    • 檢視個人資料
[分享] IP 對應國家的 Perl
« 於: 2005-01-07 15:22 »
http://www.unix.idv.tw/perl/ip-to-country.zip

這個是一個 CGI 程式,主要提供一個輸入 IP 得知這個 IP 所屬的國家。
程式的重點是使用 Geo::IPfree 這個 Module

($country, $country_name) = LookUp(168.95.1.1);

會把國家代碼 TW 和 台灣代入$country 及 $country_name 中

另外我有更改 Geo::IPfree 這個 Module
因為原本這個在 Windows 中使用會有問題,還有部分小 Bug
以及做了中文化,使其輸出時為中文國名

希望大家一起研究,有問題一起來改

Timmy