你如何在Perl中创建对象？

在Perl中创建对象，通常使用bless函数。bless函数可以将一个哈希表或者其他数据结构转换为一个特定的类的对象。以下是一个简单的示例：

# 定义一个类
package MyClass;

sub new {
    my $class = shift;
    my $self = {
        name => 'default',
        age => 0,
    };
    bless $self, $class;
    return $self;
}

sub set_name {
    my ($self, $name) = @_;
    $self->{name} = $name;
}

sub set_age {
    my ($self, $age) = @_;
    $self->{age} = $age;
}

sub get_name {
    my ($self) = @_;
    return $self->{name};
}

sub get_age {
    my ($self) = @_;
    return $self->{age};
}

1;

在上面的代码中，我们定义了一个名为MyClass的类，它有一些方法，如set_name和set_age，用于设置对象的属性。

接下来，我们可以使用bless函数创建一个MyClass对象：

#!/usr/bin/perl

use strict;
use warnings;

use MyClass;

my $object = MyClass->new();
$object->set_name('John Doe');
$object->set_age(30);

print "Name: " . $object->get_name() . "\n";
print "Age: " . $object->get_age() . "\n";

在上面的代码中，我们使用MyClass->new()创建了一个新的MyClass对象，并使用set_name和set_age方法设置了对象的属性。最后，我们使用get_name和get_age方法获取对象的属性并打印出来。

总之，在Perl中创建对象主要使用bless函数，并通过定义类和方法来管理对象的属性和行为。