摘要：
[root@wx03 lib]# cat a1.pl #引入模块 use URI::Escape; #urlencode $encoded = uri_escape("【中均】"); print $encoded."\n";[root@wx03 lib]# perl a1.pl %E3%... 阅读全文
posted @ 2016-07-09 20:39
czcb
阅读(356)
评论(0)
推荐(0)
摘要：
use LWP::UserAgent;use Encode;my $ua = LWP::UserAgent->new;$phone=$ARGV[0];$cc=$ARGV[1];$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$... 阅读全文
posted @ 2016-07-09 15:35
czcb
阅读(150)
评论(0)
推荐(0)
摘要：
use LWP::UserAgent;use Encode;my $ua = LWP::UserAgent->new;$phone=$ARGV[0];$cc=$ARGV[1];$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$... 阅读全文
posted @ 2016-07-09 15:35
czcb
阅读(176)
评论(0)
推荐(0)
摘要：
sub wx_init { #$login_url ="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-$now&lang=zh_CN&pass_ticket=$pass_ticket"; ... 阅读全文
posted @ 2016-07-09 14:11
czcb
阅读(436)
评论(0)
推荐(0)
摘要：
sub wx_init { #$login_url ="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-$now&lang=zh_CN&pass_ticket=$pass_ticket"; ... 阅读全文
posted @ 2016-07-09 14:11
czcb
阅读(195)
评论(0)
推荐(0)
摘要：
mysql> create table TBL_STUDENT(id int,name char(10),CLASSNO int,BIRTH datetime);Query OK, 0 rows affected (0.16 sec)mysql> create unique index TB... 阅读全文
posted @ 2016-07-09 10:43
czcb
阅读(226)
评论(0)
推荐(0)
摘要：
mysql> create table TBL_STUDENT(id int,name char(10),CLASSNO int,BIRTH datetime);Query OK, 0 rows affected (0.16 sec)mysql> create unique index TB... 阅读全文
posted @ 2016-07-09 10:43
czcb
阅读(331)
评论(0)
推荐(0)
摘要：
登陆电信猫：use LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping;use Socket;use Net::SMTP;use LWP;use LWP::Simple;use... 阅读全文
posted @ 2016-07-08 22:01
czcb
阅读(443)
评论(0)
推荐(0)
摘要：
登陆电信猫：use LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping;use Socket;use Net::SMTP;use LWP;use LWP::Simple;use... 阅读全文
posted @ 2016-07-08 22:01
czcb
阅读(287)
评论(0)
推荐(0)
摘要：
my $url='https://wenjinbao.winfae.com/business/dispatch_post.do?action=submitAdminLogin'; my $res = $ua->post($url,{ ... 阅读全文
posted @ 2016-07-08 21:40
czcb
阅读(465)
评论(0)
推荐(0)
浙公网安备 33010602011771号