[Perl] IPã¢ãã¬ã¹ã®å²ãå½ã¦å½ã調ã¹ãã«ã¯IP::Country::Fastã¢ã¸ã¥ã¼ã«ã使ç¨ãã¾ãã [ä¾ - countryip.pl] #!/usr/bin/perl use IP::Country::Fast; print "Enter the IP address: "; my $ip_addr = <STDIN>; my $reg = IP::Country::Fast->new(); print $reg->inet_atocc($ip_addr) . "\n"; [使ç¨ä¾] [testuser@server testuser]$ ./countryip.pl Enter the IP address: 218.219.203.56 JP
{{#tags}}- {{label}}
{{/tags}}