马鞍山网页设计

网站建设.png

马鞍山，简称“马”，安徽省辖地级市，长江三角洲中心区27城之一， [1] 是南京都市圈城市， [75] 合肥都市圈城市， [76] 皖江城市带承接产业转移示范区城市。 [74] 全市总面积4049平方千米，辖3区3县。 [7] 根据第七次人口普查数据，截至2020年11月1日零时，马鞍山市常住人口为215.993万人。 [59] 2021年，马鞍山市地区生产总值2439.33亿元，同比增长9.1%。 [81]

马鞍山，位于中国华东地区，安徽省东部、长江下游、东与江苏省南京市接壤，北与滁州市相望，西与合肥市、芜湖市毗连，南与宣城市相接，是皖南国际旅游文化示范区重要节点城市。全市总体地势较平坦，略有北高南低之势，属北亚热带季风气候，四季分明。

马鞍山因钢设市、因钢兴市，传统产业主要是钢铁、汽车、电力等，新兴产业主要有高端装备、半导体、通讯通信、生物医药等。 [7] 马鞍山是“第四届全球外包大会”和“中国软件和服务外包大会”的主办城市。 [6] 马鞍山是全国双拥模范城市 [2] 、全国文明城市 [3] 、国家森林城市 [4] 、国家卫生城市。

定义方法

Perl类的方法只但是是个Perl子程序而已，也即通常所说的成员函数。

Perl面向对象中Perl的方法定义不提供任何特别语法，但规定方法的第一个参数为对象或其被引用的包。

Perl 没有提供私有变量，但我们可以通过辅助的方式来管理对象数据。

接下来我们定义一个获取名字的方法：

sub getFirstName {
    return $self->{_firstName};}

同样也可以这么写：

sub setFirstName {
    my ( $self, $firstName ) = @_;
    $self->{_firstName} = $firstName if defined($firstName);
    return $self->{_firstName};}

接下来我们修改 Person.pm 文件的代码，如下所示：

实例

#!/usr/bin/perl 
 package Person; 
sub new{
    my $class = shift;    my $self = {
        _firstName => shift,        _lastName  => shift,        _ssn       => shift,    };    # 输出用户信息
    print "名字：$self->{_firstName}\n";    print "姓氏：$self->{_lastName}\n";    print "编号：$self->{_ssn}\n";    bless $self, $class;    return $self;}sub setFirstName {
    my ( $self, $firstName ) = @_;    $self->{_firstName} = $firstName if defined($firstName);    return $self->{_firstName};}
 sub getFirstName {
    my( $self ) = @_;    return $self->{_firstName};}1;