gamester88
gamester88_cu
全部博文(159)
2010年(39)
2009年(106)
2008年(14)
zhaiqi16
cynthia
52246852
ghsyeu
dj15621
lmt81858
笑倚春风
JenGuo
求上进
分类:
2010-06-08 14:07:10
#!/usr/bin/perl use strict; use utf8; #binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); #binmode(STDERR, ':encoding(utf8)'); use LWP::Simple; my $ip = <STDIN>; chomp ($ip); my $url = ""; my $content = get $url; die "Couldn't get $url" unless defined $content; my @diqus = ($content =~ m#(.*)(.*)(.*)#ig); print "@diqus\n"; #my %diqus = ($content =~ m#(.*)(.*)(.*)#ig); #foreach (keys %diqus){ # print "此ip".$ip."的归属地是"."$_\n$diqus{$_}\n"; # }
上一篇:利用perl发送天气预报
下一篇:初始化perl模块安装环境
登录 注册