如何让Perl构造函数返回可直接打印的对象而非仅哈希引用？

算力阿峰

2026-8-11

Perl对象自定义字符串输出实现方案

核心解决思路

Perl默认打印对象会输出类名=HASH(内存地址)格式，要实现像DateTime那样的自定义字符串输出，只需通过overload模块重载字符串化操作符""，让对象处于字符串上下文（如print、字符串拼接）时自动调用你定义的格式化方法。

修改后的`Com::Mfg::Address`模块代码

package Com::Mfg::Address;
use strict;
use warnings;
use overload '""' => \&to_string; # 重载字符串化操作符，绑定到自定义格式化方法

# 构造方法：初始化地址属性
sub new {
    my ($class, $street, $city, $state, $zip) = @_;
    my $self = {
        street => $street,
        city   => $city,
        state  => $state,
        zip    => $zip,
    };
    bless $self, $class;
    return $self;
}

# 自定义字符串格式化方法
sub to_string {
    my $self = shift;
    # 去除街道名称中的空格，再拼接成目标格式
    my $clean_street = $self->{street} =~ s/\s+//gr;
    return join('-', $clean_street, $self->{city}, $self->{state}, $self->{zip});
}

# 保留原有自定义方法示例（按需添加）
sub get_city {
    my $self = shift;
    return $self->{city};
}

1;