perl 面向对象编程
perl 面向对象编程
优惠券已抵扣
余额抵扣
还需支付
¥39.90
¥99.00
购买须知?
本专栏为图文内容,最终完结不会低于15篇文章。
订阅专栏,享有专栏所有文章阅读权限。
本专栏为虚拟商品,基于网络商品和虚拟商品的性质和特征,专栏一经购买无正当理由不予退款,不支持升级,敬请谅解。
scan724
这个作者很懒,什么都没留下…
展开
-
LWP::UserAgent 模块
LWP::UserAgent(3) User Contributed Perl Documentation LWP::UserAgent(3)NAME LWP::UserAgent - Web user agent classSYNOPSIS require LWP::UserAgent; my $ua = LWP::UserA原创 2015-07-08 13:08:21 · 3223 阅读 · 0 评论 -
perl 一个简单的面向对象的例子
jrhmpt01:/root# cat x1.pmpackage x1; use Data::Dumper; sub new { my $self ={};my $invocant = shift; my $class = ref($invocant) || $invocant; print "\$class is $class\n"; bless($self, $原创 2016-03-21 22:01:39 · 1392 阅读 · 0 评论 -
perl 创建包
jrhmpt01:/root# cat x1.pmpackage x1; use Data::Dumper; sub new { my $self ={};my $invocant = shift; my $class = ref($invocant) || $invocant; my ($name,$age,$starting_position,$monthly_sala原创 2016-03-22 09:24:22 · 478 阅读 · 0 评论 -
perl 面向对象 use base
1、XXX.pm 文件里面的第一行要是:package XXX;2、要有构造函数 sub new,实现如下:sub new { my $class = shift; # Get the request class name my $self = {}; my ($name)=@_; my $self = { "name" =>$原创 2016-05-14 08:37:43 · 887 阅读 · 0 评论 -
perl 传递对象到模块
perl 中的对象 就是引用 通过new方法传递数据结构给各个模块[root@wx03 test]# cat x1.pm package x1; use Data::Dumper; sub new { my $self ={};my $invocant = shift; my $class = ref($invocant) || $invocant; my ($name原创 2016-05-11 21:37:55 · 491 阅读 · 0 评论 -
perl 对象 bless 引用
[root@dr-mysql01 ~]# cat aa.pl use LWP::UserAgent;use Data::Dumper; my $ua = LWP::UserAgent->new;$phone=$ARGV[0];$cc=$ARGV[1];$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$host原创 2016-03-21 21:15:45 · 489 阅读 · 0 评论 -
perl 中的对象 bless
[root@dr-mysql01 ~]# cat aa.pl use LWP::UserAgent;use Data::Dumper; my $ua = LWP::UserAgent->new;$phone=$ARGV[0];$cc=$ARGV[1];$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$host原创 2016-01-06 17:21:42 · 703 阅读 · 0 评论 -
perl 类 对象 方法
NAME Net::FTP - FTP Client class SYNOPSIS use Net::FTP; $ftp = Net::FTP->new("some.host.name", Debug => 0) or die "Cannot connect to some.host原创 2015-10-06 14:59:07 · 1130 阅读 · 0 评论 -
perl 面向对象举例
Net::FTP(3) User Contributed Perl Documentation Net::FTP(3)NAME Net::FTP - FTP Client classSYNOPSIS use Net::FTP; $ftp = Net::FTP->new("some.host.n原创 2015-07-31 17:25:37 · 620 阅读 · 0 评论 -
LWP::Simple 模块
LWP::Simple(3) User Contributed Perl Documentation LWP::Simple(3)NAME LWP::Simple - simple procedural interface to LWPSYNOPSIS perl -MLWP::Simple -e 'getprint "http://w原创 2015-07-07 14:21:12 · 2417 阅读 · 0 评论 -
Perl LWP模块
网页的response header信息:LWP :Library for WWW access in PerlLWP(3) User Contributed Perl Documentation LWP(3)NAME LWP - The World-Wide Web library for Perl L原创 2015-07-07 13:21:29 · 917 阅读 · 0 评论 -
perl 面向对象 -> 符号使用
-> 有两种用法,都和解引用有关。 第一种用法,就是解引用。 根据 -> 后面跟的符号的不同,解不同类型的引用, ->[] 表示解数组引用,->{} 表示解散列引用,->() 表示解子程序引用。 例子: $arr_ref = \@array; $arr_ref->[0] 访问数组 @array 的第一个元素。-----------------------------------原创 2015-07-06 22:34:52 · 577 阅读 · 0 评论 -
默认的 UserAgent
[root@master test]# cat c1.pl use LWP::UserAgent;my $ua = LWP::UserAgent->new; $ua->_agent;print $ua->_agent ;[root@master test]# perl c1.pl libwww-perl/5.833[root@master test]#原创 2015-07-11 21:43:14 · 608 阅读 · 0 评论 -
Perl LWP::Simple 提供的方法
get($url) The get() function will fetch the document identified by the given URL and return it. It returns "undef" if it fails. The $url argument can be either a simple string or a refer原创 2015-07-10 23:01:20 · 1740 阅读 · 0 评论 -
perl 自定义请求头
firefox也是firefox自己定义的请求头;perl 请求头需要自己定义:[root@master test]# cat c3.pl require HTTP::Headers;$h = HTTP::Headers->new;#设置一个HTTP头$h->header('Content-Type' => 'text/plain', 'Accept' =>原创 2015-07-11 22:12:38 · 505 阅读 · 0 评论 -
获取响应头信息
取网页返回header 响应header[root@dr-mysql01 test]# cat a3.pl use LWP::Simple; @content = head("http://www.zjcap.cn/"); die "Couldn't get it!" unless defined @content; print "\@原创 2015-07-11 21:44:06 · 1429 阅读 · 1 评论 -
HTTP::Request
HTTP::Request(3) User Contributed Perl Documentation HTTP::Request(3)NAME HTTP::Request - HTTP style request messageSYNOPSIS require HTTP::Request; $request = HTTP:原创 2015-07-11 21:28:45 · 630 阅读 · 0 评论 -
perl 面向对象 new方法
[root@wx03 test]# cat Scan.pm package Scan;sub new{ my $class = shift; my $self={ 'a'=>11, 'b'=>22, 'c'=>33 }; bless $self,$class;原创 2016-07-14 20:10:50 · 3112 阅读 · 0 评论