Perl技术问题：如何获取对象属性值及打印哈希中的线程ID

嘿，这两个Perl相关的问题我来帮你捋清楚！

Perl里的对象通常是被bless过的引用（最常见的是哈希引用），获取属性值的方式分两种场景：

• 手动实现的简单对象（哈希引用）
  如果你是自己用bless创建的哈希引用对象，最直接的方式是通过箭头访问哈希的键：

  # 定义一个简单类
  package User;
  sub new {
      my $class = shift;
      # 用哈希存储属性，然后bless成对象
      bless { username => 'johndoe', email => 'john@example.com' }, $class;
  }
  
  # 使用对象
  my $user = User->new;
  print $user->{username}; # 输出 johndoe
  

  不过这种直接访问哈希键的方式破坏了封装性，更规范的做法是在类中定义getter方法（访问器）：

  package User;
  sub new {
      my $class = shift;
      bless { username => 'johndoe', email => 'john@example.com' }, $class;
  }
  
  # 定义getter方法
  sub get_username {
      my $self = shift;
      return $self->{username};
  }
  
  # 使用时通过方法获取
  my $user = User->new;
  print $user->get_username(); # 输出 johndoe
  

• 用Moose/Moo等OO框架创建的对象
  如果你用了Moose、Moo这类现代Perl OO框架，框架会自动为属性生成访问器方法，直接调用方法即可获取：

  package User;
  use Moose;
  
  # 定义属性，is => 'ro'表示只读访问器
  has 'username' => (is => 'ro', isa => 'Str');
  has 'email' => (is => 'ro', isa => 'Str');
  
  # 使用对象
  my $user = User->new(username => 'janedoe', email => 'jane@example.com');
  print $user->username; # 输出 janedoe
  

你给出的$r_event是一个哈希引用，其中已经存储了threadid这个键值对，直接通过箭头访问这个键然后打印就行：

首先看你的示例代码：

$r_event = { 
    'type' => 'READ_' . $task . '_STARTED', 
    'timestamp' => $timestamp, 
    'threadid' => $threadId, 
    'fdn' => $fdn 
};

要打印线程ID，只需要一行代码：

# 直接打印线程ID
print $r_event->{threadid};

# 或者带格式化的输出，更易读
print "当前线程ID: " . $r_event->{threadid} . "\n";

只要$threadId变量本身已经正确获取到了线程的ID值（比如通过Perl的threads模块的tid()方法，或者系统调用拿到的ID），这样就能正常输出线程ID了。

内容的提问来源于stack exchange，提问作者Ray